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ZiPPENDIX   A 
DOCUMENTATION    OF    DETECTOR 
DATA   ANALYSIS    PROGRAMS 


INTRODUCTION 


This  program  documentation  was  developed  incrementally 
during  the  course  of  the  UTCS/BPS  evaluation  project.   As  a 
consequence,  certain  of  the  illustrative  job  control  lan- 
guage (JCL)  setups  are  no  longer  consistent  with  the  revised 
programs.   In  other  cases,  the  parameters  shown  in  the  sam- 
ple setups  were  chosen  to  facilitate  the  original  development 
of  the  programs  on  a  particular  computer  operating  system. 
Figures  28  and  2  9  in  the  OPERATIONAL  PROCEDURES  Chapter 
illustrate  the  basic  JCL  statements  needed  to  execute  the 
sequence  of  current  programs. 

LISTING  OF  DOCUMENTATION  CONVENTIONS 

1.  The  term  "observation"  will  apply  to  a  15-minute  period, 
such  as  7:15  to  7:30,  for  which  15-minute  measure  of 
effectiveness  summaries  are  prepared. 

2.  The  term  "time  of  day"  will  apply  to  one  of  three  per- 
iods during  a  typical  weekday:   a.m.  (7:00-9:45),  midday 
(1:00-3:00),  and  p.m.  (4:00-6:30). 

3.  The  term  "traffic  control  pattern"  will  apply  to  the 
prevailing,  system  of  traffic  light  control  being  used 
when  a  particular  set  of  detector  readings  were  made.   A 
particular  set  of  "adjacent"  weekdays  will  generally  be 
associated  with  the  operation  of  a  given  traffic  control 
pattern  being  tested. 

4.  The  term  "individual  data  elements"  will  apply  to  a 
single  set  of  seven  MOE's  for  a  specific  link  during  a 
specific  observation  on  a  certain  day. 

5.  The  term  "data  quality  status"  relates  to  the  level  of 
usability  assigned  to  a  particular  individual  data  ele- 
ment on  the  basis  of  several  criteria. 

6.  The  term  "case"  shall  apply  to  a  specific  control  pattern/ 
time  of  day  combination  and  the  data  files  pertaining 

to  it. 

7.  Whenever  "INTEGER*2"  appears,  the  associated  and  follow- 
ing variables  are  integer  half  words.   It  thus  must  be 
kept  in  mind  that  the  values  taken  on  by  these  variables 
cannot  exceed  the  maximum  integer  half-word  size  of  the 
machine  being  used. 


DATA  FILE  SUFFIX  CONVENTIONS 

1.  MMMDD  is  a  general  data  file  name  suffix  designation 
which  means  that  the  file  corresponds  to  the  day  speci- 
fied by  month  MMM  (three  letter  abbreviation)  and  date 
DD  (two  digit  integer) . 

2.  XXY  is  a  general  data  file  suffix  designation  which 
means  that  the  file  corresponds  to  the  time  of  day  XX 

(AM,  MD  for  MIDDAY  or  PM)  and  traffic  control  pattern 
number  Y  (one  digit  integer) . 

3.  XXYZ  is  similar  to  the  suffix  XXY,  but  it  occurs  when 
the  file  involves  a  comparison  of  control  patterns  Y 
and  Z.   If  XXZY  also  can  occur,  the  file  applies  to  the 
traffic  control  pattern  of  the  first  digit  while  the 
second  digit  is  the  pattern  to  which  it  is  being  com- 
pared for  purposes  of  defining  the  file. 

4.  In  the  above  cases,  and  in  all  other  cases  where  it  is 
desired  to  indicate  a  general  (variable)  suffix,  the 
variable  suffix  will  be  underlined: 

i.e.,  M0E2XXY   to  indicate  the  general  form  of  a 
file  type  that  in  a  specific  case  might  be  M0E2AM1 

5.  Numbers  or  characters  appearing  in  double  braces  repre- 
sent the  current  values  being  used  for  a  parameter 
(such  as  TEST(l)  [  [8] ] )  . 

6.  All  numbers  are  right  justified  in  their  fields  and  all 
cnaracter  strings  are  left  justified  in  their  fields 
unless  otherwise  stated. 


OVERALL  COMPUTER  PROGRAM  LINKAGE  DESCRIPTION 


The  starting  point  is  the  set  of  daily  traffic  detec- 
tor summary  files  on  disk.   Each  such  file  contains  data 
on  the  seven  measures  of  effectiveness  for  each  of  270 
detectorized  links  for  each  of  approximately  30  fifteen- 
minute  periods  throughout  the  day  (on  occasion,  a  file  will 
contain  data  for  a  fraction  of  a  day  instead  of  the  normal 
single  full  day) .   These  disk  files  are  the  raw  input  to 
the  chain  of  computer  programs  to  be  described  below. 

In  what  follows,  the  chain  of  data  manipulations  typi- 
cally performed  will  be  briefly  presented.   This  will  pro- 
vide a  context  for  the  more  detailed  documentation  which 
follows  it.   The  flow  of  data  manipulations  will  be  expressed 
with  reference  to  sample  JCL  decks  and  the  associated  FORTRAN 
programs  being  executed. 

STEP  1 

The  first  step  is  to  delete  any  observations  from  the 
raw  daily  detector  summary  files  which  are  known  to  be 
defective  or  which  are  suspected  of  being  unusable.   This 
is  accomplished  through  the  use  of  JCL  such  as  appears  in 
Figure  1.   For  any  daily  detector  summary  file  having  one 
or  more  15-minute  observations  that  are  to  be  deleted,  a 
new  daily  file  must  be  created  that  is  identical  to  the 
original  file,  except  for  the  deletion  of  the  unwanted  ob- 
servations.  The  FORTRAN  program  OBSOUT  (see  Figure  2)  is 
executed  once  for  each  daily  file  for  which  deletions  are 
desired  and  a  new  permanent  modified  disk  file  is  created. 
This  modified  file  will  be  used  in  place  of  the  original 
file  in  all  subsequent  work. 

STEP  2 

The  next  step  is  to  consolidate  the  daily  files  into 
three  "time  of  day"  files  for  each  traffic  control  pattern 
being  examined.   In  addition,  the  process  of  screening  the 
data  for  unusable  observations  to  be  deleted  and  to  deter- 
mine data  quality  status  of  individual  data  elements  is 
initiated.   The  JCL  illustrated  in  Figure  3  is  an  example 
of  the  type  of  setup  that  can  be  used  in  executing  the 
program  CONFIL3  (see  Figure  4) ,  which  comprises  this  step 
for  a  single  traffic  control  pattern. 

For  each  traffic  control  pattern,  CONFIL3  is  executed 
once  to  produce  three  consolidated  time-of-day  files  from 
the  10  to  12  daily  files  that  typically  comprise  a  specific 
control  pattern  period.   Aside  from  the  segregation  of 
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//OBSOUT  EXEC  PGM=OBSOUT 

//STEPLIB  DO  DSN=PMMCO.UTCS.LOADl,DISP=SHRf 

//  UNIT=SYSOA»VQL=SER=OTHERS 

//FTG6F001  DD  SYSOUT=A 

//FT08F0C1  DO  DSN=PMMCO.UTCS.DET. APR04,DISP=SHR , 

//  UNIT=SYSDA,VOL=SER=OTHERS 

//FT09F001  OD  * 

OOOO COOOOOOIOOOOOOOOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOOOOOOOOOOOOOOO 00000000 

//FT10F001  DD  DSN=PMMCO.UTCS.DET.MOD.APR0A-f 

//  UNIT=SYSDA,DISP=(NEW»KEFP)t 

//  0CB=(RECFM=VBS,LRECL=^3A0,BLKSIZE=7294) , 

//  SPACE=(7294,(45,5),RLSE) 


Figure  1.   Sample  listing  for  job  control  language 


LISTING  OF  JHKA.JHKB.PROGLIB 
MEMBER  NAME  OBSOUT 

C       PROGRAM  OBSOUT 

C 

C       PROGRAM  TO  MANUALLY  DELETE  OBSERVATIONS  FROM  A  DAILY  FILE 

C 

INTEGER*2  TAB(2160) 
INTEGER  EDIT<50),DATE(3),TIME 
KNT=0 

READ(9,100)(EDIT(I),I=1,50) 
100  F0RMAT(50I1) 
10  READ(8,END=30)DATE,TIME,TAB 
KNT=KNT+1 

IFCKNT.LE.50)  GO  TO  20 
WRITE(6,200) 
200  FORMAT(»  MORE  THAN  50  RECORDS  IN  DATA  SETM 
GO  TO  30 
20  IF(EDIT(KNT).EQ.O)  GO  TO  40 
WRITE (6, 300) DATE, TIME 
300  FORMAT! •  OBSERVATION • ,3A4,2X ,A4, •   DELETED1) 
GO  TO  To 
40  WR1TE(10)DATE, TIME, TAB 

GO  TO  10 
30  CONTINUE 
RETURN 
END 


Figure  2.   Sample  listing  for  program  OBSOUT 


//C0NFIL3    EXEC    PGM=C0NFIL3 

//STEPLIB    OD   OSN=PMMCO.UTCS.LOA01fVOL=SER=OTHERS,DISP=SHRfUNIT=SYSDA 

//FTG6FC01    DO    SYS0U7=A 

//FT09F001    DD    * 

13312132133111111113211332321223232222222222222221111111111113313333311323332133 

13312112321100313321313321133323131111111113303131110131331111111331313133113333 

31331113121133203111103233313330132133313121113233131333331111131311111111133123 

21111332  2213311111111111111111 

//FT10F001    DO    « 

8  50  6000  1500  5  75 

//FT11F001    DD    DSN=PMMC0.UTCS.DET.APR15,V0L=SER=0THERS,DISP=SHR, 
//    UNIT=SYSDA 

//    DD    DSN=PM^C0.UTCS.DET.APR16,V0L=SER=0THERS,DISP=SHR,UNIT=SYSDA 
//    DD    DSN=PMMCO.U7CS.DE7.APR17,VCL=SER=OTHERS,DISP=SHR,UNIT=SYSDA 
//    DD    DSN=PM*1C0.UTCS.DE7.APR18,V0L  =  SER=0THERS,0ISP=SHR,UNIT=SYSDA 
//    DD    DSN=PMMC0.UTCS.DEr.APR19,V0L=SER=0THERS,DISP=SHR, 
//    UNIT=SYSDA 

//    DD    DSN=PMMC0.UTCS.DET.APR22,V0L=SER=0THERS,DISP=SHR,UNIT=SYSDA 
//    DD    DSN=PMMC0.UTCS.DET.APR23,V0L=SER=0THERS,0ISP=SHR,UMT  =  SYSDA 
//    DD    DSN  =  PM*C0.UTCS.DE7.M0D.APR26,V0L  =  SER  =  0THEP.S,niSP  =  SHR,UNIT=SYSDA 
//    DD    DSN=PMMCO.U7CS.DET.APR3OA,V0L=SER=OTHERS,DISP=SHR,UNIT=SYSOA 
//    DD    DSN=PMMCO.UTCS.DET. APR33B  ,  V0L  =  SER=0THERS, D ISP  =  SHR , UN  I 7=SYS DA 
//    DD    DSN=PMMC0.UTCS.DET.MAY01A,VOL=SER=OTHERS,DISP=SHR,UNI7=SYSDA 
//    DD    DSN  =  PMMCO.U7CS.DET.MAY01B,VOL-=SER  =  OTHERS,DISP  =  SHR,UNIT=SYS0A 
//FT12F001    DD    DSN=PMMCD.UTCS. TEMPAM3 , 

//    UNIT=SYSDA,VaL=SER=G7HERS,DISP=(NEW,KEEP,DELETE) , 
//    DCB=(RECFM  =  V3S,LRECL=4892,3LKSIZE  =  72  9<t ), 
//    SPACE=(72^4,  (100,9)  ,FLSE) 
//FT13F001    DO    DSN=PMMCO.U7CS.TEMPMD3, 

//    UNIT=SYSDA,V0L=SER=07HERS,0ISP={NEW, KEEP, DELETE) , 
//    DCB=*.FT12F0ni, 
//    SPACE=(7294,(73,7) ,RLSE) 
//FT14F001    DO    DSN=PMMC0.UTCS.7EMPPM3, 

//    UNI7=SYSDA,V0L=SER=0THERS,D1SP=(NEW, KEEP, DELETE) , 
//    DCB=*.FT12F001, 
//   SPACE=I7294,(90,8),RLSE) 


Figure  3.   Sample  listing  of  JCL  for  program  CONFIL3 


LISTING  OF  JHKA.JHKB.PROGLIB  PAGE  002 

MEMBER  NAME  C0NFIL3  12  JUL  1974 

C       PROGRAM  C0NFIL3 

C 

C        A  PROGRAM  TO  CREATE  THREE  TIME  OF  DAY  FILES  FROM  A  SET  OF  RAW 

C        FILES  FOR  A  GIVEN  TRAFFIC  CONTROL  SYSTEM 

C 

INTEGER*2    MOE{ 8, 270 ) , INDOUS (270 ) 
INTEGER*2    NDET(270) 

INTEGER  DAT£(3),TIME,TIMKEY(2),INDPER,DATKEY(12),TEST(6) 
DATA  IND0US/270*0/ 

DATA  TIMKEY/*C945«,  •  1600 • /, DATKEY/*  MARS*  APR*,*  MAY*,*  JUN*,»  JU 
1L*,*  AUG1,*  SEP*,*  OCT1,*  NOV*,*  DEC*,*  JAN*,*  FEB*/ 
READ(9,10)  «NDET( J),J=1,270) 
10  F0RMAT(80I1) 

READ(10,20)  (TEST(K),K=1,6) 
20  FORMAT(6I10) 

25  READ( 11,END=1000)  DATE, TIME , ( (MOE t I , J) , 1=1,8 ) , J=l ,270) 
NBAD  =  0 
NFLAG  =  0 
NSDET  =  0 
DO  30  1=1,12 

IF(DATE(1).EQ.DATKEY(I))  GO  TO  50 
30  CONTINUE 

WRITE (6,40)  (DATE (I), 1=1, 3), TIME, (MOE (I 1,1), I 1=1, 8) 
40  FORMATC  *,*THE  START  OF  A  15  MINUTE  FILE  IS  INCORRECT  OR  MISPLACE 
ID:  *,3A4,5X,A4,/,»  *,8I10,//) 
STOP 
50  DO  55  J10=l,270 
55  INDOUS(JIO)  =  0 
INDPER  =  2 

IF(TIME.Lf.TIMKEY(D)  INDPER=1 
IF(TIME.GE.TIMKEY(2))  INDPE«>=3 
IUN  =  11  ♦  INDPER 
DO  500  J=l,270 
IF(NDETU).LE.l)  GO  TO  57 

IF( (MOE(4,J).EQ.0).AND.(MOE(5,J).EQ.0).AND.(MOE(8,J).EQ.0) )  GO  TO 
157 
GO  TO  58 

57  INDOUS(J)  =  2 
NSDET  =  NSDET  ♦  1 

58  IF(M0E(1,J).NE.J)  GO  TO  300 
IF(M0E(2,J).LT.TEST(1) )  GO  TO  350 
IF(M0E(6,J).GT.TEST(2))  GO  TO  350 
IF(M0E(7,J).GT.TEST(3))  GO  TO  350 
DO  60  1=3,8 
IF(MOE(I,J).LT.O)  GO  TO  350 

60  CONTINUE 

IF(M0E(2,J).GT.TEST(4))  GO  TO  350 

GO  TO  500 
300  IF(MOE(l,J).GE.O)  GO  TO  340 

MOE(ltJ)  =  J 

INDUUS(J)  =  INDOUS(J)  ♦  5 

NFLAG  =  NFLAG  ♦  1 

IF(  1ND0US( J1.E0.7)    NSDET    =    NSDET   -    1 

GO  TO  500 
340    M0E(1 ,J)     =     J 

Figure  4.   Sample  listing  for  program  C0NFIL3 . 


PAGE  003 
LISTING  OF  JHKA.JHKB.PROGLIB         12  JUL  1974 
MEMBER  NAME  CONFIL3  (CONT) 

350  INDOUS(J)  =  INDOUS(J)  ♦  4 
NBAD  =  NBAD  +  1 

IFIIND0US(J).EQ.6)  NSDET  =  NSDET  -  1 
500  CONTINUE 

IFMNBAO.LT. TESK5)  )  .AND.MNBAD+NFLAG)  .LT.TEST1  6)  ))  GO  TO  600 
WRITE (6,510)  (DATE<K7),K7=1,3 ), TIME, NBAD, NFL AG, NSDET 
510  FORMAK*  »,»THE  15  MINUTE  INTERVAL  »  ,3A4, 5X ,  A4,  •    WAS  DELETED  BEC 
1AUSE  IT  HAD   NBAD  =  SIS,';   NFLAG  =  »,I3,»;   NSDET  =  • , 13 , //> 
GO  TO  25 
600  WRITE UUN)  DATE, TIME,NB AD, N FLAG , NSDET, ( UNDOUS(J) , CMOE ( I ,J J , 1=1 , 8 ) 
1),J=1,270) 
GO  TO  25 
1000  STOP 
END 


Figure  4.   Sample  listing  for  program  C0NFIL3  (continued) 


observations  into  different  files  by  time  of  day  and  the 
consolation  of  observations  for  all  days  of  the  traffic  con- 
trol pattern  period  into  a  single  file,  the  resulting  files 
are  similar  to  the  original  daily  files.   However,  based 
on  several  tests  made  on  the  data,  one  or  more  observations 
may  have  been  deleted  as  unusable  and  index  values  which 
specific  data  quality  status  are  incorporated  into  the  new 
files  created. 

STEP  3 

The  sample  string  of  JCL  appearing  in  Figure  5  executes 
in  a  single  job  a  number  of  FORTRAN  and  utility  programs 
for  a  specific  control  pattern  and  time  of  day  so  as  to  make 
more  efficient  the  manipulation  of  the  associated  temporary 
and  intermediate  data  files.   Although  a  number  of  differ- 
ent programs  are  involved,  they  all  operate  on  data  for  a 
given  control  pattern  and  time  of  day  in  a  prespecified 
sequential  fashion  and  so  may  be  treated  as  a  single  multi- 
part step  or  chain. 

The  first  program  to  be  executed  is  OLOUT  (see  Figure 
6) .   The  primary  input  to  this  program  and  the  chain  is 
one  of  the  time  of  day  files  produced  by  a  run  of  the  pro- 
gram C0NFIL3 .   Thus,  this  chain  is  run  three  times  for  every 
one  execution  of  C0NFIL3. 

The  program  OLOUT  makes  a  final  pass  to  determine  if 
any  other  observations  should  be  deleted,  based  on  another 
set  of  tests.   A  new  temporary  data  set  is  created,  similar 
to  the  input  data  set,  but  missing  any  observations  deleted. 
In  addition,  a  vector  is  computed  and  stored,  which  speci- 
fies usability  of  each  of  the  270  links  for  that  control 
pattern  and  time  of  day,  based  on  the  number  of  detectors 
functioning  for  that  link  and  the  data  quality  levels 
achieved  by  the  various  observations  on  that  link. 

Following  this  program,  a  sort  is  executed  using  an 
IBM  SORT/MERGE  routine.   The  temporary  data  file  created  by 
the  last  program  is  the  basic  input  and  the  output  is  an- 
other temporary  file,  identical  to  the  first,  except  that 
the  observations  have  been  reordered  so  that  they  are  in 
ascending  temporal  order  by  clock  time,  and  observations 
with  the  same  clock  time  are  adjacent.   This  shuffling  of 
the  data  file  will  facilitate  several  subsequent  computa- 
tions. 

The  program  PLUGNET  (see  Figure  7)  performs  three  basic 
functions.   First,  it  calculates  the  mean  values  of  each  of 
the  seven  performance  MOE ' s  for  each  link  over  all  usable 
observations  (a)  for  each  15-minute  period  separately  and 
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//OLOUT  EXEC  PGM=OLOUT 

//STEPLIB  DD  DSN=PMMCO.UTCS.LOAD1,VOL=SER=OTHERS,DISP=SHR,UNIT=SYSDA 

//FT06F001  DO  SYSOUT=A 
//FT09F001  DD  * 

20  5       0.9        0.6        0.9 

//FT10F001  DD  DSN=PMMCO.UTCS.TEMPAM1,VOL=SER=OTHERS,DISP=SHR,UNIT=SYSDA 
//FT11F001  DD  DSN=£tTEMPl , 
//  UNIT=SYSDA,DISP=(NEW,PASS) , 
//  DCB=(RECFM=VBS,LRECL=4e92,BLKSIZE=7294), 
//  SPACE=17294,(100,9),RLSE) 

//FT12F001  DD  DSN=PMMCO.UTCS.NOBS( AMI ) ,LABEL=( t ,,OUT) , 
//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=(NEW,KEEP) , 

//  0CB=(RECFM=FB,LRECL=72,BLKSIZE=72) , 
//  SPACE=J72,<1,1,10)) 

//FT13F0C1  DD  DSN=PMMC0.UTCS. INDGAM1 , 

//  UNIT=SYSDA,V0L=SER=0THERS,D1SP=(NEW,KEEP) , 

//  DCB=(RECFM=VBS,LRECL=3  244,BLKSIZE=3248), 

//  SPACE  =  (3248,(1,D) 

//FT14F001  DD  DSN=PMMCO.UTCS. LUSEAM1 , 

//  UNIT=SYSDA,V0L=SER=0THERS,D1SP=(NEW,KEEP), 

//  DCB=(RECFM=VBS,LRECL=544,8LKSIZE=5MJ), 

//  SPACE=(548,(1,1) ) 

//S0RT1    EXEC    PGM=SORT,COND=(0,LT) ,PARM= »MSG=AP,CORE=100000 • 

//SORTLIB    DD   0SN=SYS1. SORTLIB , DISP=SHR 

//SYSOUT    DD    SYSOUT=A 

//SORTWK01    DO    UNIT=SYSDA,SPACE=(CYL,(3),,C0NTIG) 

//S0RTWK02    DD    UNIT=SYSDA,SPACE=( CYL t (3) , ,CONT IG ) 

//S0RTWK03    DD    UNIT=SYSDA, SPACE=( CYL, < 3 ) , ,CONTIG ) 

//SYSIN    DD    * 

SORT    FIELDS=( 17 ,4, CH, A) , SIZE=E85 
//SORTIN    DD    DSN=££TFMP1,DISP=(0LD, DELETE), UNIT=SYSDA 
//SORTCUT    DD    DSN=£CTEMP2, 
//    UNIT=SYSDA,DISP=<NEW,PASS)  , 
//    0CB= (RECFM=VBS,LRECL=4 892, BLKSIZE= 7294), 
//    SPACE=(7294,(100,9) ,RLSE) 
//PLUG    EXEC    PGM=PLUGNET,COND=(G,LT) 

//STEPLIB    DD    DSN=PMMC0.UTCS.L0AD1,V0L=SER=0THERS,0ISP=SHR,UNIT=SYSDA 
//FT06F001    DD    SYSOUT=A 

//FT09F001    DD    DSN=PMMC0.UTCS.LUSEAM1 , V0L=SER=0THERS ,DISP=SHR,UNI T=SYSDA 
//FT11F0C1    DD    DSN=PMMCO.UTCS.NObS(AMl),LABEL=(,,,IN),VOL=SER=OTHERS, 
//    DISP=SHR,UNIT=SYSDA 
//FT12F001    DD    * 

CONTROL    PATTERN    2;    P.M. 
//FT13F001    DD    DSN=££TEMP2, DISP  =  (OLD, DELETE)  ,UNIT=SY5DA 
//FT14F001    DD    DSN=PMMC0.UTCS . I BARAM1 , 

//    UNIT=SYSDA,VOL=SER=OTHERS,DISP=(NEW, KEEP, DELETE) , 
//    DCB=(RECFM=VBS,LRECL=7  564,BLKSIZE=7294), 
//    SPACE=(7294,(40,2),RLSE) 
//FT15F001    DD    DSN=PMMC0.UTCS.G6ARAM1 , 

//    UNIT=SYSDA,VOL=SER=OTHERS,DISP=(NEtf, KEEP, DELETE) , 
//    DCB=(RECFM=VBS,LRECL=7  564,BLKSIZE=7294), 
//    SPACE=(7294,(2,1),RLSE) 
//FT16F001    DD    DSN=C &TEMP3 , 
//    UNIT=SYSDA,DISP=(NEW,PASS), 


Figure  5.   Sample  JCL  for  program  OLOUT 
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//    DCB=(RECFM=VBS,LRECL=4904,BLKSIZE=7294)f 
//    SPACE=(7294,(100,9),RLSE) 

//SCTRGM    EXEC    PGM=SCTRGM,COND= (0,LT) 

//STEPLIB    DD    DSN=PMMC0.UTCS.L0AD1,V0L=SER=0THERS,DISP=SHR,UNIT=SYSDA 

//FT06F001    DD    SYS0UT=A 

//FTO9F001    DD    * 

CONTROL    PATTERN    2;    P.M. 
//FT10F001    DD    DSN=PMMCO.UTCS.NOBS( AMI), LABEL =(,,, IN), V0L=SER=0THERS, 
//    DISP=SHR,UNIT=SYSDA 

//FT11F001    DD    0SN=PMMC0.UTCS.LUSEAM1,V0L=SEP=0THERS,DISP=SHR,UNIT=SYSDA 
//FT12F001    DD    DSN=G£TEMP3 ,DISP= (OLD, PASS ) ,UN IT=SYSD A 
//S0RT2    EXEC    PGM=S0RT,COND=(0 , LT) ,PARM=»MSG=AP,C0RE=100000 • 
//SORTLIB    DD.  DSN=SYS1 . SORTLIB, DI SP=SHR 
//SYSOUT    DD    SYSOUT=A 

//S0RTWK01  DD  UNIT=SYSDA, SPACE=(CYL, ( 3) , ,CONTIG ) 
//S0RTWKC2  DD  UN IT=SYSDA, SPACE= (CYL, ( 3) , ,CONTIG ) 
//S0RTWK03  DD  UNIT=SYSDA,SPACE=(CYLf ( 3) , ,CONTIG ) 
//SYSIN    DO   * 

SORT    FIELDS=(17,4,CH,A,33,4,BI,A) ,SIZE=E85 
//SORTIN    DD    DSN=££TEMP3,DISP=(0LD, DELETE), UNIT=SYS0A 

//SORTOUT    DD    DSN=&£TEMP4, 

//    UNIT=SYSDA,DISP=(NEW,PASS), 

//    DCB  =  (RECFM=VBS,LRECL=490<t,BLKSIZE=7294), 

//    SPACE=(7294, (100,9), RLSE) 

//BRKFIL    EXEC    PGM=BRKF IL, COND= ( 0,LT ) 

//STEPLIB    DD    DSN=PMMC0.UTCS.L0AD1,V0L=SER=0THERS,DISP=SHR,UNIT=SYSDA 

//FT06F001    DD    SYS0UT=A,DC8=BUFN0=1 

//FT09F001    DD    DSN=PMMCG.UTCS.NCBS( AMI ) ,LABEL=( , , , IN ) , V0L=SER^G7HERS, 

//    DCB=BUFN0=1,D1SP=SHR,UNIT=SYSDA 

//F11CFCG1    DD    DSN=££TEMP4,DISP=SHR,UNIT=SYSDA,DCB=BUFN0=1 

//FT11F001    DD    D-SN=PMMCC.UTCS.HEADAM1, 

//    UNIT=SYSDA,V0L=SER=0THERS,D1SP=(NEW, KEEP, DELETE) , 

//    DCB=(RECFM=VBS,LRECL=46,BLKS1ZE=249S,BUFN0=1), 

//    SPACE=(2498,(2,1),RLSE) 

//FT12F001  DD  DSN=PMMCO.UTCS . INDSAM1, 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=(NEW, KEEP, DELETE) , 

//  DCB=(RECFM=VSS,LRECL=548,BLKSIZE=7294,BUFN0=1), 

//  SPACE=(72«:)4,(9,1),RLSE) 

//FT13F001  DD  DSN=PMMCG.UTCS .M0E2AM1 , 

//  UNIT=SYSDA,VOL=SER-OTriERS,DISP=(NEW, KEEP, DELETE) , 

//  DCB=(RECFM=V3S,LRECL=548,3LKSIZE=7294,BUFN0=1), 

//  SPACE=(7294,(9,1 ),RLSE) 

//FT14F001  DD  DSN=PMMCO.UTCS.MOE3AM1 , 

//  UNIT=SYSDA,VOL=SER=OTHERS,0ISP=(NEW,KEEP,DFLFTE) , 

//  DCB=(RECFM=VBS,LRECL=548,BLKSIZE=7294,BUFN0=1), 

//  SPACE=(7294, (9,1),RLSE ) 

//FT15F001    DD    DSN=PMMCG.UTCS .M0E4AM1 , 

//    UNIT=SYS0A,V0L=SER=0THERS,D1SP=(NEW, KEEP, DELETE) , 

//    DCB=(RECFM=VBS,LRECL=548,BLKSIZE=7294,BUFN0=1), 

//    SPACE=(7294,(9,1),RLSE) 

//FT16F001  DD  DSN=PMMCO.UTCS .M0E5AM1 , 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=(NEW,KEEP,DFLETF) , 

//  DCB=(RECFM=VBS,LRfcCL=5*8,BLKSIZE=7294,BUFN0=l), 


Figure  5.   Sample  JCL  for  program  OLOUT  (continued) 


12 


//    SPACE=(7294, (9,1>,RLS5> 

//FT17FC01    DO    DSN=PMMC0.UTCS.M0E6AMl, 

//    UNIT=SYSDAfVOL=SER=OTHERStDISP=(NEW,KEEPf DELETE) * 

//    DCB=(RECFM=VSS,LRECL=546,bLKSIZE=7294»BUFN0=l), 

//    SPACE=(7204,(9,1),RLSE) 

//FT18F001    DO    DSN=PMMC0.UTCS.M0E7AMlt 

//    UNIT=SYSD*,VCL=SER=OTHERStDlSP=(NEW,KEEP,DFLETE) * 

//    DCB=(RECFM=VeS,LRECL=548,BLKSIZE=7294?BUFN0=l>, 

//    SPACE  =  (7294, (9,1),RLSE  ) 

//FT19F001    OD    DSN=PMMCCJ.UTCS.MCE8AM1, 

//    UNIT=SYSDA,VOL=SER=OTHERS,DISP=<NEW,KEEPtDELETE)  , 

//    DCB=(RECFM=VBStLRECL=548,BLKSIZE=7294,BUFN0=l), 

//    SPACE=(7294,(9,1),RLSE) 

//ENDPRNT    EXEC    PGM=ENDPRNTtCOND=(0,LT ) 

//STEP LIB    DD    DSN=PMMCO.UTCS.LOADl»VOL=SER=OTHERS,DISP=SHR,UNIT=SYSDA 

//FT06F001    DD    SYSOUT=A 

//FT09FOC1    DD    DSN=P MMCO.UTCS. NOBS ( AMI ) t LABEL=( , » tIN ) ,VOL=SER=OTHERS, 

//    DISP=SHR,UN1T=SYSDA 

//FTlOFOOl    DD    DSN=PMMCO.UTCS.LUSEAMl,VOL=SER=OTHFRS,DISP=SHR,UNIT=SYSDA 

//FT11F001    DD    DSN=PMMCO.UTCS.HEADAMl,VOL=SER=OTHERStDISP=SHR,UNlT=SYSDA 

//FT12F001    DD    DSN=PMMCO.U TCS.MOE2AM1 , VOL=SER=OTHERS ,DISP=SHR ,UNI T=SYSDA 

//FT13FC01    DD    DSN=PMMCO.UTCS.MOE8AMl, VOL=SER=OTHERS ,DISP=SHR,UNI T=SYSDA 


Figure  5.   Sample  JCL  for  program  OLOUT  (continued) 
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PAGE  006 
LISTING  OF  JHKA.JHKB.PROGLIB        12  JUL  1974 
MEMBER  NAME  OLOUT 

C       PROGRAM  OLOUT 

C 

C       PROGRAM  TO  REMOVE  ANY  REMAINING  BAD  OBSERVATIONS  AND  BUILD 

C       A  LINK  USAGE  VECTORt  LUSE(J) 

C 

INTEGER*2  MOE( 8, 270) , INDOUS (270) ,LUSE( 270) , I NDG(6,270) 
INTEGER  DATE(3),TIME,TEST2(2) 
REAL  FRTST13) 

DATA  LUSE/270*1/, INDG/1620*0/, NOBS/0/ 
READ(9,10)  (TEST2(I),I=1,2),(FRTST(I),I=1,3) 
10  F0RMAT(2I10,3F10.5) 

20  READ( 10,END=1000)  DATE, TIME ,NBAD,NFLAG,NSDET » (( INDOUS* J) , (MOE { I, J ) 
1,1=1,8)), J=l, 270) 
DO  800  J=l,270 
INDOUS(J)  =  INDOUS(J)  ♦  1 
1999=  INDOUS(J) 

GO  T0(100, 700, 200, 700, 300, 400, 500, 600, 700) ,1999 
100  INDG(1,J)=  INDG(1,J)  ♦  1 

GO  TO  800 
200  INDG(2,J)=  IMDG(2,J)  +  1 

GO  TO  800 
300  INDG(3,J)=  INDG(3,J)  ♦  1 

GO  TO  800 
400  INDG(4,J)=  INDG(4,J)  ♦  1 

GO  TO  800 
500  INDG(5,J)=  INDG(5,J)  +  1 

GO  TO  800   _ 
600  INDG(A,J)=  INDG(6,J)  ♦  1 

GO  TO  800 
700  INDOUS(J)=  INDOUS(J)  -  1 

WRITE (6,750)  J,  INDOUS (J) , (DATE ( II ), 11=1,3  ),  TIME 
750  FORMAT(»  •  ,  ■  INDOUSC  »  ,  13  ,  •  )  =  SI?,1   FOR  •  ,3A4,5X,A4,  •  IS  INVALID. 
1   JOB  TERMINATED',/) 
STOP 
800  CONTINUE 
GO  TO  20 
1000  CONTINUE 

REWIND  10 
1100  READ( 10,END=2000)  DATE , TIME ,NBAD,NFLAG,NSDET , ( (INDOUS (J) ,(MOE(I,J) 
1,1=1, 8)), J=l, 270) 
NSMLT  =  0 
DO  1150  J=l,270 

IF((INDG(l,J)+INDG(2,J)).LT.l)  GO  TO  1150 

IF((( (IN0G(l,J)+0.)/(INDG(l,J)+INPG(2,J)+0.) ) .GT.FRTST ( 1 ) ) . AND. ( IN 
100US(  J).E0.2)  )  NSMLT  =  NSMLT  ■►  1 
1150  CONTINUE 

IFJNSMLT.LT. TEST2(D)  GO  TO  1800 
DO  1500  J=l,270 
INOOUS(J)  =  INDOUS(J)  +  1 
1999=  INDOUS(J) 

GO  T0(1200, 1450, 1250, 1450, 1300, 1350, 1370, 1400, 1450) ,  1999 
1200  INDG(l,J)=  IN0G(1,J)  -  I 

GO  TO  1500 
1250  INDG(2,J)=  INDG(2,J)  -  1 
GO  TO  1500 

Figure  6.   Sample  listing  for  program  OLOUT. 
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PAGE    007 
12   JUL    1974 


MEMBER    NAME    0L0UT 


1300    INDG<3,J)  = 

GO    TO    1500 
1350    INDG(4,J)= 

GO    TO    1500 
1370    INDG(5,J)= 

GO    TO    1500 
1400    IN0G(6,J)= 

GO    TO    1500 
1450    INDOUS(J)= 

WRITE(6,14 

1460    FORMATS     • 

1       JOB    TERM 

STOP 
1500  CONTINUE 

WRITE(6t15 

1550    FORMAT (•     • 

1AUSE    IT   HA 

GO    TO    1900 
1600    NOBS=NOBS* 

WRITE(ll) 
ltJ=l»270) 
1900    GO    TO    1100 
2000    CONTINUE 

WRITE<12,2 
2050    F0RMATU10 

WRITE (13) 

DO  3000  J= 

IF((INDG(1 

IF(UNDG(3 

IF(((INDG( 
1  2400 

GO  TO  3000 
2300  LUSE(J)  = 

GO  TO  3000 
2400  LUSE(J)  = 
3000  CONTINUE 

WRITE(14) 

STOP 

END 


LISTING    OF    JHKA.JHKB.PRCGLIB 
(CONT) 

INDG(3,J>  -    1 

INDG<4,J>  -    1 

1NDG(5,J)  -    1 

INDG(6,J)  -    1 


INDOUS(J)  -  1 
60)  J, I NDOUS( J), (DATE (II), 11=1, 3), TIME 

t (INDOUS(*f I3ff*)  =  •rI2»»   FOR  •  ,3  A4,5X,  A4,  •  IS  INVALID, 
INATEO  ON  SECOND  PASS*,/) 


50)  (DATE(I1),I1=1,3),TIME,NSMLT 
.•THE  15  MINUTE  INTERVAL  • ,3A4, 5X, A4, • 
D  NSMLT  =  SI3,//) 


WAS  DELETED  BEC 


DATE»TIMEtNBAD,NFLAG,NSDET, ( UNDOUS( J ) , (MOE( I, J), 1=1, 8)) 


050)  NOBS 

) 

((INDG(I,J),I=1,6), J=l,270) 

1,270 

,J)+INDG(2,J)+0.).LT.(NOBS*FRTST(2)))  GO  TO  2300 

,J)+INDG(5,J)).GT.TEST2(2) )  GO  TO  2300 

l,J)+0.)/(INDG(l,J)+INDG(2,J)+0.)).LT.FRTST(3))  GO  TO 


(LUSE(J1),J1=1,270) 


Figure  6.   Sample  listing  for  program  OLOUT  (continued). 

15 


G  LEVEL  21  MAIN  DATE  =  74197       18/19/54 

C  PROGRAM  PLUGNET 

C 

C  PROGRAM  TO  PLUG  HAD  VALUES  WITH  MEAN  VALUES  AND  CALCULATE 

C  NETWORK  QUANTITY  VALUES  FOR  EACH  OBSERVATION 


C 


INTEGER*?  MOE( 8,2  70) , I NDOUS( 2  70 ) ,LUSE(2  70) 

INTEGER  DATF(3),TIME,NUS( 270  J , NGUS( 270) , NTUS { 2  70 ) ,NTGUS( 2  70) 

INTEGER  TIMLST,TITLEU9) 

REAL  IMEANI 7,270) ,GMEAN(  7, 270) 

DATA     I  ME  AN/ 18  90*0./, GMEAN/ 1890*0 ./ 

DATA    NUS/270*0/,NTUS/2  70*0/,NGUS/270*0/,NTGUS/270*0/ 

DATA    TIMLST/'IST     »/f I  1ST/»IST    •/ 

READ(9)     ILUSE(J) ,J=l,270) 

READ( 11,5)    N03S 
5    F0RMATII10) 

READ(12,7)     (TITLE(I) ,1=1,18) 
7    FORMAT! 18A4) 

DO    1000    K7=1,N03S 

READ! 13)    DATE,TIME,N8AD,NFLAG, NSDET , ( ( I NDOUS ( J),(MOE( I , J ) , 1=1 ,8 ) ) , 
1J=1,270) 

IF(<TIME.EQ.TIMLST).OR.  (  T  I  MLST  .  EC  1 1ST  )  )    GO    TO   50 
12    DO    30    J  =  l,270 

NGUS(J)     =    NGUS(J)    *■    NUSU) 

NTGUS(J)    =    NTGUS(J)     *    NTUSIJ) 

DO  15  18=1,  7 
15  GMEAN(I8,J)  =  GMEANU8,J)  +  IMEAN(I8,J) 

IF{NUS(  JJ.EQ.O)  GO  TO  20 

IMEAN(ltJ)  =  IMEAN(1,J)/NUS(J) 

IMEAN(2,J)  =  IMEANI2,  JJ/NUSU) 

IMEAN(5,j")  =  IMEAN(5,J)/NUS( J) 

IMEAN(6,J)  =  IMEAN(6,J)/NUS<J) 

IF(NTUS( J).EO.O)  GO  TO  25 

IMEAN(3,J)  =  IMEAN(3,J)/NTUS(J) 

IMEAN(4,J>     =    IMEAN14, J)/NTUS(J) 

IMEAN(7,J)    =     IMEAN(7,J)/NTUS( J) 

GO    TO    30 
20    IMFAN(L,J)     =    -1. 

IMEAN(2,J)    =    -I. 

IMEAN15,J)    =    -I. 

IMEAN(6,J)     =    -I. 
25    IMEAN( 3, J)    =    -I. 

IMEAN(4,J)     =    -I. 

IMEAN(7,J)    =    -1. 
30    CONTINUE 

WRITE (14)     ( (IMEAN(L1,L2) ,Li=l,7) ,L2=l,270) 

DO    35    J7=l,270 

NUSU7)    =    0 

NTUSCJ7)    =    0 

DO    35    17=1,7 
35    IMEANU  7,J7)    =    0. 

IFUK7.  EQ.  NUBS)  .AND.  (TIME.  EQ.TIMLST)  )    GO    TO    1010 
50    TIMLST    =    TIME 

DO    200    J  =  l,?70 

IF(  INDOUSU  ).NE.O)  GO  TO  150 

NTUSIJ)  =  NTUS(J)  *  1 

IMEAN(3,J)  =  IMEAN(3,J)  ♦  M0E<4,J) 

Figure  7.   Sample  listing  for  program  PLUGNET. 
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G    LEVEL      21 


MAIN 


DATE    =    74197 


18/19/54 


150 


200 

1000 
1010 


1050 


1060 


1100 


2000 


2100 


2200 


2300 


IMEANI4 

IMEAN(7 

IF( IN00 

NUS( J) 

IMEANU 

IMEAN( 2 

IMEANI5 

IMEAN(6 

CONT INU 

IFIK7.E 

CONTINU 

DO    1100 

IF(NGUS 

GMEANI 1 

GMEAN12 

GMEAN(5 

GMEAN(6 

IF(NTGU 

GMEAIMO 

GMEAN(4 

GMEANI7 

GO    TO    1 

GMEAMU 

GMEAN(2 

GMEAN(5 

GMEAN<6 

GMEANO 

GMEAN<4 

GMEANt  7 

CONTINU 

WRI TE(1 

REWIND 

REWIND 

TIMLST 

READ( 14 

00    3000 

READ!  13 

U=l,270 
NETV0L= 
NETDEL= 
NET0UE= 
IFUTIM 

1L1=1,7) 
TIMLST 
DO  2  500 
IFILUSE 
IF{( 1ND 
IF(  INDO 
IF (IMEA 
DO  2100 
IFULL  = 
MOEIM+1 
GO  TO  2 
DO  2300 
IFULL  = 
M0E(M*i 


»J) 
tJ) 

US(  J 

=    NU 

»J) 

,J) 

,J) 

,J> 

E 

Q.NO 

E 

J  =  l 
(J). 
tJ) 
,J> 
,J> 
,J) 
S(J) 
,J) 
tJ) 
♦  J) 
100 

,J) 
,J) 
,J) 
,J) 
,J) 
,J) 
,J) 

E 

5)     ( 
13 
14 

=    II 
)     (  ( 

K7= 
)  DA 
) 

0 

0 

0 
E.NE 
,L2= 
=    TI 

J  =  l 
(J). 

oust 

US(  J 

Nil, 

M=l 

MAX 

,J) 

400 
M=l 
MAX 

.J) 


=    IMEAN(4,J)     ♦  M0E(5,J) 

=    IME4N(7,J)     +  M0E(8,J) 
).GT.2)    GO    TO    200 
S(  J  )     *■    1 

=     IMEANU, J)     +  M0E(2,J) 

=    IMEAN(2,J)     ♦  M0E(3,J) 

=     IMEAN(5,J)     ♦  M0E(6,J) 

=    IMEAN(6,J)     +  ^0E(  7,  J) 

BS)    GO    TO    12 


,270 

EO.O)     GO    TO    1050 

=    GMEAN( 1, J)/NGUS(  J) 

=    GMEAN(2,  JJ/NGUSU  ) 

=    GMEAN(5,J)/NGUS(J> 

=    GMEAN(6, J )/NGUS(J  ) 

.EQ.O)    GO    TO    1060 

=    GMEAN(3,J)/NTGUS(  J) 

=    GMEAN(4,J)/NTGUS(J ) 

=    GMEAN(7,J)/NTGUS( J) 


(GMEAN(L1,L2) ,L1=1 , 7 ) , L2= I, 270  ) 


ST 


IMFANtLlt  L2)»L  1=1,7  ),L2=1,  270) 

UNOBS 

TE,TIME,NBAD,NFLAG,NSDET,(( INDOUSI J) ,  <MOE( I, J),  1  =  1,8)), 


.TIMLST). AND. (TIMLST. NE. UST)  )     READU4)     (  {  I  MEAN  (  L  I  ,L2  )  , 

1,2  70) 

ME 

,270 

EO.O)     GO    TO    2500 

J).EQ.2).AND.  (LUSE(J).EQ.D)    GO   TO    2000 

l.LE.2)    GO    TO    2400 

J).E0.-1. )    GO    TO    2200 

,7 

1(0., IMEAN(MtJ)  ) 

=    IFULL 

,7 


l(0.,GMEAN(M,J) ) 
=     IFULL 


Figure  7.   Sample  listing  for  program  PLUGNET  (continued). 
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G  LEVEL   2i  MAIN  OATE  =  74L97  18/19/54 

2400  NETVOL  =  NETVOL  +  M0E(2,J) 

IF(LUSEU).EQ.2)  GO  TO  2500 

NETDEL  =  NETDEL  ♦  MOE ( 7 » J ) *MQE ( 8 , J) 

NETQUE    =    NETQIJE    +    MOE  (4,  J) 
2500  CONTINUE 

WRITE! 16)    DATE,TIMF,NBAD,NFLAG,NSDET,NETV0L,NETDEL,NET3UE, ( (INOOUS 
UJ)t  (MOEdt  J)  t  1  =  1.8)  )  ,J=1,270) 
3000   CONTINUE 

STOP 

END 


Figure  7.   Sample  listing  for  program  PLUGNET  (continued) 
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(b)  for  the  entire  control  pattern/time  of  day  file.   The 
former  are  called  "individual"  means  to  distinguish  them 
from  the  latter,  "grand"  means. 

The  program  then  uses  these  means  to  substitute  for 
individual  data  element  values  which  have  been  identified 
as  unusable  but  which  correspond  to  links  and  observations 
which  in  general  have  been  deemed  usable.   Grand  means  are 
used  only  where  an  appropriate  individual  mean  could  not 
be  calculated.   Since  total  row  and  column  integrity  is 
maintained  for  the  ultimate  statistical  analysis  of  the 
data,  this  "plugging"  of  minor  "holes"  in  the  data  prevents 
wholesale  deletion  of  all  data  for  whole  links  and  obser- 
vations  that  would  otherwise  be  necessary. 

Finally,  the  program  calculates  the  total  volume  over 
all  usable  links  for  each  observation  and  the  total  ve- 
hicle seconds  of  delay  and  average  number  of  vehicles  queued 
over  all  usable  multiple-detector  links  per  cycle  for  each 
observation.   These  values  are  then  incorporated  into  the 
temporary  data  set  generated  by  this  program,  which,  aside 
from  this  expansion  and  the  plugging  of  unusable  values 
with  mean  values,  is  equivalent  to  the  input  data  file. 

The  next  program,  SCTRGM  (Figure  8) ,  produces  a  scat- 
tergram  of  all  multi-detector  individual  data  elements 
across  all  observations  in  the  control  pattern/time  of  day 
file  under  consideration.   The  horizontal  axis  is  the  hourly 
link  lane  volume  in  units  of  eight  for  a  maximum  display- 
able  value  of  130  X  8  =  1040  vehicles  per  hour.   The  verti- 
cal axis  is  average  delay  per  vehicle  in  units  of  three 
seconds  for  a  maximum  displayable  value  of  60  X  3  =  180 
seconds.   The  numbers  on  the  scattergram  represent  density 
ranges  for  the  number  of  data  points  falling  within  the 
corresponding  "box"  on  the  plot.   The  scattergram  is  intended 
to  give  a  useful,  graphical  summary  of  the  data  for  that 
control  pattern  and  time  of  day. 

This  is  followed  by  a  second  sort  of  the  latest  tem- 
porary detector  summary  files,  which  orders  15-minute 
periods  in  ascending  order  by  network  volume  (calculated  by 
PLUGNET)  within  the  primary  sorting  of  observations  by 
clock  time.   This  sort  is  intended  to  decrease  sorting  time 
in  later  steps,  although  it  is  not  absolutely  necessary. 

The  program  BRKFIL  (see  Figure  9)  is  used  to  disaggre- 
gate each  large  control  pattern/time  of  day  temporary  file 
into  several  smaller  permanent  files  that  will  be  more 
easily  handled  in  subsequent  data  manipulations. 


19 


LISTING  OF  JHKA.JHKB.PROGLIB 


PAGE  Oil 
12  JUL  1974 


MEMBER  NAME  SCTRGM 


PROGRAM  SCTRGM 

PROGRAM  TO  PRODUCE  A  SCATTERGRAM  OF  DELAY  VS  VOLUME  FOR  A  LINK 


10 
20 


500 
1000 


1200 

1250 
1260 
1300 

1310 

1320 

1330 

1340 


INTEGER*2 
INTEGER*2 
INTEGER    NO 
DATA    MAPKE 

114't '5*t '6 
READ(9,10) 
FORMATdSA 
READ( 10,20 
F0RMATU10 
READ(ll)  ( 
DO  1000  K7 
READJ12)    D 

U)tCMOE(  It 
DO    500    J=l 
IF(LUSE(J) 
IM    =    60   - 
JM    =    MINO( 
MAPCIM, JM) 
CONTINUE 
CONTINUE 
DO    1300    IM 
DO    1300    JM 
IFCMAPUM, 
DO    1200   KL. 
IFCMAPUM, 
CONTINUE 
KL   =   9 
GO    TO    1260 
KL    =    0 
MAP(IM,JM> 
CONTINUE 
DO    1310    IM 
MAPCIM,!) 
DO    1320    JM 
MAP(61,JM> 
WRITE(6,13 
FORMAT^l* 
WRITE(6,13 
FORMATS     • 
STOP 
END 


M0E(8,270),INDOUSC270),MAP(61,131),MAPKEYC8) ,KEY(10) 

ISTAR,LUSE(270) 

BS,DATE«3)  ,TIME, TITLE (18) 

Y/l, 3, 5, 10, 20, 30,50, 75/, MAP/799 1*0/, KEY/*     • 

1 »'7«, •8«,,9«/,ISTAR/»*»/ 

(TITLECI),I=1,18> 
4) 

)    NOBS 
) 

LUSE(J) ,J=1,270) 
=1,N0BS 

ATE,TIME,NBAD,NFLAG,NSDET,NETV0L,NETDEL,NETQUE,UINDOUS( 
J), 1=1, 8) ),J=1,270) 
,270 

.NE.l)    GO    TO    500 
MIN0(59,(M0E(8,J)/3H 
129,(M0E(2,J)/8))    +    2 

=    MAPI IM,JM)    +    1 


=  1,60 

=2,131 

JM).EQ.O)    GO    TO    1250 

=  1,8 

JM).LE.MAPKEY(KL) )    GO    TO    1260 


=    KEY(KL+1) 

=  1,61 
=    ISTAR 
=1,131 

=    ISTAR 
30)     (TITLE(I5),I5=1,18) 
,18A4,/> 

40)     ((MAP(IM,JM), JM=1,131),IM=1,61 ) 
,131A1) 


Figure  8.   Sample  listing  for  program  SCTRGM 
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PAGE  001 
LISTING  OF  JHKA.JHKB.PROGLIB        12  JUL  1974 
MEMBER  NAME  BRKFIL 

C       PROGRAM  3RKFIL 

C 

C       A  PROGRAM  TO  CREATE  SEPARATE  HEAOER  ANO  INDIVIDUAL  MOE 

C       FILES  FOR  INPUT  TO  THE  PRE-POST-PROCESSOR 

C 

INTEGER*2    M0E(8,270 ) ,INDOUS (270 ) 

INTEGER   DATE(3),TIME 

REA0(9,10)    NOBS 
10    FORMATU10) 

DO    1000   K=1,N0BS 

READ( 10)  DATE,TIME»NBAD,NFLAGfNSDETfNETVOLtNETDEL,NETQUE,( ( INDOUSt 
1J),(M0E(I,J),I=1,8) ),J= 1,270} 

WRITE (11)  K,DATE,TIME,NBAD,NFLAG,NSDET,NETVOL,NETDEL,NETQUE 

WRITE(12)  K,(IND0US(J),J=1,270) 

DO  500  L=2t8 

IUN  =  11  +  L 

WRITE(IUN)  K,(M0E(LtJ)tJ=l,270) 
500  CONTINUE 
1000  CONTINUE 

STOP 

END 


Figure  9.   Sample  listing  for  program  BRKFIL. 
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Finally,  the  program  ENDPRNT  (Figure  10)  produces  a 
printed  summary  and  sample  listing  of  some  of  the  detailed 
data  for  this  control  pattern  and  time  of  day.   This  print- 
out is  meant  to  aid  checking,  analysis,  and  human  data 
quality  control. 

STEP  4 

The  following  steps  all  either  prepare  for  or  perform 
statistical  comparisons.   Thus,  sets  of  files  for  two  con- 
trol patterns  (assumedly  for  the  same  time  of  day)  are 
involved  in  each  such  run  and  so  at  least  two  of  the  Step  3 
chains  must  be  run  to  provide  adequate  input  for  Step  4 , 
which  itself  has  several  parts. 

The  sample  JCL  in  Figure  11  first  executes  the  program 
NETCON  (see  Figure  12) .   Since  each  control  pattern/time  of 
day  has  a  different  vector  describing  the  usability  of  the 
270  links,  it  is  necessary  for  any  given  comparison  to 
establish  a  single  consistent  vector  of  link  usability — a 
vector  which  classifies  a  link  as  usable  for  statistical 
comparison  only  if  it  is  classified  as  usable  in  the  two 
separate  vectors  and  an  optional,  exogenously-supplied  vec- 
tor of  link  usability.   Based  on  this  new  vector,  consistent 
total  "network"  volumes  are  calculated  for  each  observation 
in  each  of  the  two  control  pattern/time  of  day  cases.   These 
two  sets  of  consistent  network  volumes  will  be  used  later 
in  the  "matching"  process  that  will  define  a  consistent  set 
of  observations  for  all  statistical  comparisons  beteween 
these  two  control  pattern/time  of  day  cases.   The  results 
of  this  program  are  stored  in  new  data  files. 

Using  the  IBM  SORT/MERGE  package  again,  the  file  con- 
taining the  observation  descriptors  and  the  corresponding 
values  of  network  volume  for  the  two  control  pattern/time 
of  day  cases  are  sorted  so  as  to  be  in  ascending  order 
according  to  network  volume  within  the  primary  ordering 
according  to  clock  time.   This  sorting  will  facilitate  the 
"matching"  of  observations  to  be  used  in  the  statistical 
analysis . 

The  sorted  files  that  result  are  the  primary  inputs  to 
the  program  PREPOST  (Figure  13) .   This  program  insures  that 
both  the  total  number  of  observations  and  the  number  of 
observations  in  each  15-minute  period  for  the  two  control 
pattern/time  of  day  cases  are  equal.   The  program  also 
insures  that  the  volume  ranges  for  observations  in  each  15- 
minute  period  do  not  differ  by  more  than  a  certain  amount 
as  between  the  two  cases.   This  matching  process  is  the 
final  step  in  assuring  total  data  integrity  by  link  and 
observation  for  statistical  comparisons  and  also  guards 
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LISTING  OF  JHKA.JHKB.PROGLIB 


PAGE  004 
12  JUL  1974 


MEMBER  NAME  ENOPRNT 


PROGRAM  ENDPRNT 

A  PROGRAM  TO  PRODUCE  A  SUMMARY  REPORT  OF  A  TIME  OF  DAY/PATTERN 
FILE  AFTER  FILE  MANIPULATION  IS  COMPLETED 


10 

20 
100 


520 

1000 


1100 


1200 


1300 
2000 


INTEG 
INTEG 
READ( 
FORMA 
READ( 
WRITE 
FORMA 
WRITE 
FORMA 
1  NET 
DO  10 
READ( 
WRITE 
FORMA 
CONTI 
REWIN 
WRITE 
FORMA 
DO  20 
READC 
READ( 
WRITE 
FORMA 
WRITE 
READ( 
WR I TE 
FORMA 
CONTI 
STOP 
END 


ER*2 
ER  DA 
9,10) 
TII10 

10)  ( 
(6,20 
T<»1» 
(6,10 
T(//, 
DEL 
00  LI 

11)  K 
(6,52 
T(»  • 
NUE 

D  11 
(6,11 
T(»l« 
00  LI 

11)  K 

12)  K 
(6,12 
T(»  • 
(6,13 

13)  K 
(6,13 
T(13( 
NUE 


MOE(270 
TE(3),T 

NOBS 
) 

LUSE(J) 
)  (LUSE 
, »LUSE( 
0) 

•  LI 
NETQUE* 
=1,N0BS 
,DATE,T 
0)  L1,K 
t 12,14, 


),LUSE(270) 

IME 


,J=1,270) 
(J),J=1,270) 
J)»,/t(»  •,7211)) 

K^X^DATE^X^TIME1,1  NBAD  NFLAG  NSDET 
t/) 


NETVOL 


IME ,NB AD, NFLAG, NSDET, NETVOL ,NETDEL ,NETQUE 

, DATE, TIME, NBAD, NFLAG, NSDET, NETVOL, NETDELtNETOUE 

2X,3A4,2X, A4, I 5, 216, 318) 


00) 

,5X) 

=1,N0BS 

, DATE, TIME, NBAD, NFL AG, NSDET, NET VOL, NETDEL ,NETQUE 

,(M0E(J),J=1,270) 

00)  K,DATE(1) ,DATE{?) ,TIME 

,I2,2X,2A4, IX, A4) 

00)  (MOE( J) ,J=1,270) 

,(M0E(J),J=1, 270) 

00)  (M0E(J),J=1,270) 

•  •,19X,20I5,/),,  ,,19X,10I5,/) 


Figure  10.   Sample  listing  for  program  ENDPRINT 
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//NETCOM  EXEC  PGM=NETCON 

//STEPLIB  DD  DSN=PMMCO.UTCS.LOAD2,DISP=SHR,VOL=SER=OTHERSt 

//  UNIT=SYSDA 

//FTC6F001  DD  SYSOUT=A 

//FT09F0C1  DD  * 

0 
//FTlOFOOl  DD  DSN=PMMCO.UTCS*NCBS(AM1),DISP=SHR,VOL=SER=OTHERS, 
//  UNIT=SYSDA,LA6EL=( ,,,IN) 

//FTllFOOl  DD  DSN=PMMCO.UTCS.NOBS(AM2),DISP=SHR,VOL=SER=OTHERS, 
//  UNIT=SYSDA,LABEL=< ,,,IN) 

//FT12F0C1  DD  DSN=PMMCO.UTCS.LUSEAMl , DISP=SHR ,VOL=SER=OTHERS , 
//  UNIT=SYSDA 

//FT13F001  DD  DSN=PMMCO.UTCS .LUSEAM2,DI SP=SHR ,VOL=SER=OTHERS, 
//  UNIT=SYSDA 
//FT14F001  DD  * 

//FT15F001  DD  OSN=PMMCO.UTCS . LUSGAM12 , 

//  UNIT=SYSD4,VOL=SER=OTHERS,DISP=(NEW, KEEP, DELETE) , 

//  DCB=(RECFM=VSS,LRECL=5^,BLKSIZE=548) . 

//  SPACE=(548,(1,1) ) 

//FT16F001    DD    DSN=PMMCO.UTCS.HEADAMl , DI SP=SHR,VOL=SER=OTHERS, 

//    UNIT=SYSDA 

//    DD    DSN=PMMCO.UT.CS.HEADAM2,DISP=SHR,VOL=SER=OTHERS, 

//    UNIT=SYSDA 

//FT17F001    DD    DSN=PMMCO.UTCS.MOE2AM1,DISP=SHR,VOL=SER=OTHERS, 

//    UNIT=SYSDA 

//    DO    DSM=PMMCO.UTCS.MOE2AM2.DISP=SHRtVOL=SER=OTHERS. 

//    UNIT=SYSDA 

//FT18F001    DD    DSN=PMMCO.UTCS. V0LAM12, 

//    UNIT  =  SYSDA,VCL=SER=OT"HERS,DISP=(NEW, KEEP, DELETE) , 

//    0CB=(RECFM=VBS,LRECL=2  8,BLKS1ZE=1061), 

//    SPACE={ 1061,(3,1)) 

//FT19F001  DD  D-SN=PMMCO.UTCS.  VCLAM21  , 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=(NEW, KEEP, DELETE) , 

//  DCB=(RECFM=VBS,LRECL=2  8,6LKSIZE=1061), 

//  SPACE  =  (1061,(3,D) 

//S0RT3  EXEC  PGM=SORT, PARM=»MSG=AP ,C0RE=1000C0» ,C3ND=(0, LT ) 

//SORTLIB  DD  DSN=SY SI. SOR TLI B, DI SP=SHR 

//SYSOUT  DD  SYSOUT=A 

//S0RTWKC1  DD  UNIT=SYSDA,SPACE=(CYL,(3),,C0NTIG) 

//S0RTWK02  DD  UN IT=SYSDA, SPACE= (CYL, ( 3 ) , ,CONTIG ) 

//SORTWK03  DD  UNIT= SYSDA, SPACE=( CYL, { 3 ) , ,CDMTIG ) 

//SYSIN  DD  * 

SORT    FIELDS=(21,4,CH,A,2  5,4,BI,A),SIZE=E85 
//SORTIN    DD   DSN=PMMC0.UTCS.V0LAM12,DISP=(QLD, DELETE, KEEP), 
//    UNIT=SYSDA,VCL=SER=OTHERS 
//SORTOUT    DD    DSN=PMMC0.UTCS.SRT3AM12, 

//    UNIT=SYSDA,VOL=SER=OTHERS,DISP=(NEW,KEEP,DELETE) , 
//    DCB=(RECFM=VBS,LRECL=2  8,BLKSIZE=1061), 
//    SPACE  =  (1061,(3,D) 

//S0RT4    EXEC    PGM=S0RT,PARM=iMSG=AP,C0RE=100"00«,C0ND=(0,LT) 
//SORTLIB    DD    DSN=SYS1. SORTLIB, DI SP=SHR 


Figure  11.   Sample  listing  of  JCL  for  program  NETCON 
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//SYSOUT 
//SORTWK 
//SORTWK 
//SORTWK 
//SYSIN 

SORT  FI 
//SORTIN 
//  UNIT= 
//SORTOU 
//  UN1T= 
//  OCB=( 

//  SPACE 
//PREPST 
//STEPLI 
//  UNIT= 

//FT06F0 
//FTIOFO 
//  UNIT= 
//FT11F0 
//  UNIT= 
//FT15FO 
//  UNIT= 
//FT16F0 
//  UNIT= 
//FT18F0 
//  UNIT= 
//  DCB=( 
//  SPACE 


DO  SYSOUT= 

01  DO  UNIT= 

02  do  UNIT  = 

03  DO  UNIT= 
DO  * 
EL0S=(21,4, 

DD  OSN=PMM 
SYSDA, V0L=S 
T  00  DSN=PM 
SYSDA,V0L=S 
RECFM=VBS,L 
=(1061, (3,1 

EXEC  PGM=P 
B  DO  DSN=PM 
SYSDA 


SYSDA,SPACE=(CYL,(3) , ,CONTIG) 
SYSDA,SPACE=«CYL,(3), ,CONTIG) 
SYSDA,SPACE=(CYL,(3),,C0NTIG) 

CH,A,25,4,BI,A) ,SIZE=E85 

CO. UTC S. VOL AM21,D I SP=( OLD, DELETE, KEEP), 

E«=OTHERS 

MC0.UTCS.SRT3AM21, 

ER=0THERS, D I SP=( NEW, KEEP, DELETE), 

RECL=28,BLKSIZE=1061), 

)) 

REP0ST,CON0=(0,LT) 

MC0.UTCS.L0AD2,DISP=SHR,V0L=SER=0THERS, 


SYSOU 
DSN=P 


T=A 


01    DD 

01    DO 

SYSDA 

01    DD 

SYSDA 

01    DO 

SYSDA 

01    DD 

SYSDA 

01    DD    DSN=PMMC0.UTCS.0BUSAM12, 

SYSDA, V0L=SER=0THERS,D I SP=( NEW, KEEP, DELETE) , 

RECFM=VBS,LRECL=104,BLKSIZE=108), 

=(108, (1,1) ) 


MMC0.UTCS.N0BS(AM1),DISP=SHR,V0L=SER=0THERS, 
DSN=PMMC0.UTCS.N0BS(AM2),DISP=SHR,VOL=SER=OTHERS, 
DSN=PMMCO.UTCS.SRT3AM12,DISP=SHR,VOL=SER=OTHERS, 
0SN=PWCO.UTCS.SRT3AM21,DISP-SHR,V3L=SER=0THERS, 


Figure  11.   Sample  listing  of  JCL  for 
program  NETCON  (continued) . 
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'JHKA.JHKB.NETCON 
C      PROQRflM  NETCOM 
C 

C      R  PROGRAM  TO  ESTABLISH  A  CONSISTANT  SET  OF  LINKS  FOR  A  NETWORK 
C      AND  CALCULATE  NETWORK  UOLUMES 
C 

INTEGERS  LUSE1 (270  > ,LUSE2<270> ,LUSEM<270> ,  LUSEG ( 270 > ,MOE2(270> 
INTEGER  DATE (3) -TIME 
DATA  LUSEN/27iJ*1/ 
READ (5. 10 >  ILUSEH 
10  FORMAT <I 10 > 

RE AD a  0 ,20>  MOBS1 
READd  1  ,20>  N0BS2 
20  FORMAT  C'110) 

READ(12>  CLUSE1  (J>  ,.J=1  ,270) 
RERD(  13)  (  LUSE2  <  J  >  ,.>  1  ,  270  > 

IFdLUSEM.EQ.  1  :  READ (5, 30 >  <LUSEN( J> , J=1 ,270 > 
30  FORMAT (72 1 1 > 
DO  1 00  J-1  ,270 
LU1  -  LUSE1 (J> 
LU2  -  LUSE2(J> 
LUM  =■•   LUSEM(J> 

LUSEG(J>  -   MIN0CLU1  ,LU2,LIJN> 
IF(LUSE6(.J>.NE.0>  LUSEG(J>  =  MAK0 <LU1 »LU2> 
100  CONTINUE 

WRITE<15>  CLUSEG<-J>'»J=1  ,270  > 
WRITE<6»1  10)  (LUSEG(J>  ,J=»1  ,270) 
110  FORMAT(//.'  '  ,  'LUSEG (J:'-  :'>/?<'  '  .10011  >> 

WRITE(6 si  50) 
150  FORMAT  ■::.•■'.•■•■/ s  '  '  ,  'K      DATE     TIME  NETUOL ','"  > 
DO  50  0  L-1  ,NOBS1 

READ( 1 6>  K  ,DATE  ,TIME ,NBAD  ,NFLAG  ,NSDET, NETUOL ,NETDEL  ,NETQUE 
READ  ( 1  7  >  r..y<  MOE2  ( J  >  vJ=  1  >  270  ) 
NETUOL*  0 
DO  400  ..1=1  ,270 
IF(LUSEG(J>.EQ.O>  GO  TO  40  0 
NETUOL  -  NETUOL  +  M0E2(J> 
40  0  CONTINUE 

MR  I TE ( 1 8 >  K , DATE , T I  ME , NETUOL 
WR I TE ( 6  , 5 1 0 >  K , DATE , T I ME , NETUOL 
50  0  CONTINUE 

510  FORMAT ('  ',I3,4A4,IS> 
WRITE<6»150> 
DO  1 00  0  L-1 , NOBS 2 

READC  1  6)  K  , DATE, TIME  ,NBAD  ,NFLAG  J1SDET, NETUOL  ,NETDEL',NETQUE 
READ ( 1 7  >  K  ,  ( M0E2 ( J  > , J= 1  , 270  > 
NETUOL  -   0 
DO  600  .J-1  ,270 
I F  < LUSEG ( J > . EG . 0 >  GO  TO  60 0 
NETUOL  =■=  NETUOL  +  N0E2(J> 
60  0  CONTINUE 

WR I TE ( 1 9 >  K  ,  DATE , T I  ME , NETUOL 
WRITE< 6 ,51 0>  K, DATE, TIME, NETUOL 
1000  CONTINUE 
STOP 
END 


Figure  12.   Sample  listing  for  program  NETCON. 


»JHKfl.JHKB. PREPOST 

PROGRAM  PREPOST 

R  PROGRflM  TO  PREPARE  FINAL  DATA  FOR  TWO  PATTERNS  FOR  THE  POST 
PROCESSOR 

I NTEGER*2  OBUSE 1 C 1 0 0 ) , 0BUSE2 ( 1 0 0  > 

INTEGER  K1  <1C0>  ,K2(100)  ,DATE1  (3,100)  ,DATE2<3  ,  1  00  >  ,TIME1 (  1  CO  > 

I NTEGER  T I ME2  (  1  0  0  )  , NTUOL 1(100),  NTU0L2  -MOO), NU0L2  ( 1  0  0  ) 

I NTEGER  N I T 1 < 1 5  ) , N I T2  ( 1 5 ) - T I  N0 1 ( 1 0 0 >  < T I MD2  ( 1 0 0  > , NUOL 1 < 1 0 0 > 

INTEGER  KNT1 (100) ,KNT2(100) ,DATD1 (3,100; ,DATD2<3 , 1 00 ) 

DATA  N I T 1  / 1  5*0  s  ,  N I T2/ 1  5*0  /  ,  1 1  S/ 1  /  ,  1 2S/ 1  / ,  I TV  1  / 

DATA  OBUSE 1 / 1 0 0 * 1 / , 0BUSE2/ 1 0  0 * 1 / 

DATA  I END 1 /0 / , I END2/0 / 

RERD<10,2G)  NOBS1 

REROd  1  ,20)  N0BS2 
20  FORMAT(HO) 

DO  50  1=1  >NQBS1 
50  READ<15)  K1  (I)  , (DATE1(K,I)  ,K=1  ,3), TIME  1  (I>  ,NTUOL1(I) 

DO  60  1  =  1  ,N0BS2 
60  RERD(16)  K2H>  ,(DATE2(K,I)  ,K=1  ,3>,TIME2(I)  ,NTU0L2(I) 
20  0  CALL  READ! T< 1 1 S , 1 2S ,NIT 1 , NI T2 , 1 T  > OBUSE 1  , 0BUSE2 , 1 END  1  , 1 END2 , T I  ME  1  , T 
1 IME2J10BS1  ,N0BS2,K1  »K2) 

I  ISP  -    IIS  +  NIT1 (IT) 

I2SP  =  I2S  +  NIT2(IT) 

CALL  MATCH  ( 1 1 S  , 1 2S , N I T 1  , H I T2 , IT , OBUSE  1  , 0BUSE2 , NTUOL 1  , NTU0L2 ,  T I ME 1  , 
1 T I ME2 , 1  END  1  , 1 END2  ,  K 1  ,  K2  ) 

IIS  =  I  ISP 

I2S  =  I2SP 

I F  C I END  1  *  I END2 . EQ . 1 >  GO  TO  30  0 
IT  =  IT  +  1 
60  TO  20  0 
300  WRITEdS)  ( OBUSE 1  <J'l  ),J1=1  ,NOBS1  >  ,  (0BUSE2C  J2)  SJ2=1  ,N0BS2) 
WR I TE (  6  » H50  )  ( OBUSE  1  (  K  1  (  J 1  )  >  ,  J1  -•  1  ,  NOBS  1  > 
WRITEC*., 450)  (0BUSE2(K2(.J2)  )  .J2=1  ,N0BS2) 
H50  FORMAT (//,'  >,  'OBUSE:  ',/,  '  ',10011) 
NE1  =  0 

DO  500  1=1 ,NOBS1 

IF(QBUSE1  (K1  (D).EQ.O)  GO  TO  500 
NE1  =  NE1  +  1 
KNT1 CHE1 )  =  K1 (I) 
DATD1 (1  ,NE1 )  =  DATE1 (1  ,  I) 
D ATD 1 ( 2  » NE 1 )  =  DATE 1(2,1) 
DATD 1 ( 3 , NE 1 )  =  DRTE 1 ( 3,1) 
TIMD1 (NE1 )  =  TIME1 (I) 
NUOL 1 ( NE 1 )  =  NTUOL 1 ( I ) 
500  CONTINUE 
NE2  =  0 

DO  1000  1  =  1  ,N0BS2 

IF<OBUSE2CK2(I)).EQ.O)  GO  TO  1000 
NE2  =  NE2  +  1 


Figure  13.   Sample  listing  for  program  PREPOST 
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KNT2<NE2>  =  K2<I> 

DATD2<1»NE2>  =  DATE2<1,I> 

DflTD2<2'»NE2>  =  DATE2<2,I> 

DATD2<3,NE2>  =  DflTE2<3»I> 

TIMD2CME2)  =  TIME2(I> 

NU0L2<ME2>  =  MTU0L2U> 
10.00  CONTINUE 

WRITE <6,1 100> 
1100  FORMAT (//»  '  »,»K1      DRTE     TIME    UOL1       U0L2    TIME     DATE 
1      K2'>/> 

DO  1200  1  =  1  J1E2 
1  20 0  I4R I TE  <  6  ,130  0  )  KMT  1  <  I  >  ,  <  DflTD  1  <  J  >  I  >  ,  •>- U 3 >  ,  T I MD 1  <  I  >  ,  NVOL 1  <.  I  >  < NU0L2 <  I 

1  ) , T I MD2 < I > , < DRTD2 ( J  - 1 > , J=1  .3 >  ,KNT2< I > 
1300  FORMAT <  '  ' , 12 , 1 X ,HR4 , 18 < 1 1 0  ,2X,R4 , 1 X  ,3fi4 , I2> 

STOP 

END 

SUBROUT I  ME  READ I T  < 1 1 S , 1 2S , M I T 1  ,  M I T2\ I T , OBUSE 1  , 0BUSE2 , 1  END 1  , 1 END2  ,  T 
1 IME1  „TlME2sN0BS1  ,N0BS2,K1  J(2> 

I  NTEGER*2  OBUSE  1  <  1  0  0  >  ,  0BUSE2  <  1  0  0  > 

IMTEGER  MIT1 <15) ,NIT2C15) ,TIME1 <100>  ,TIME2<100> 

INTEGER  K1  <.  1  0 0  >  ,K2<100> 

DATA  NINE/ '9999'/ 
50  IF(TIME1  (I1S>.ME.TIME2':i2S>>  GO  TO  500 
100  MIT1  (IT>  =  MIT1  Cm  *  1 

IF<  C1 1 S+N I T 1 < I T > -  1 > . EQ . MOBS  1 )  GO  TO  1 5C 

I F ( T I ME 1 ( 1 1 S+N I T 1 < I T  >  > . EQ . T I ME 1(11 S ) >  60  TO  1  0  0 

GO  TO  200 
150  IEMD1  -  1 
20  0    MIT2(IT;    =   MIT2vIT)    +•  1 

IFai2S+MIT2(IT>-1  >.EQ.M0BS2>    GO   TO    250 

I F  •:: T I ME2  (.  1 2S+M I T2  •:'.  I T  >  >  .  EG .  T I ME2 (.  1 2S  >  >    6fl<  TO   20 0 

GO  TO  30  0 
250  IEMD2  =■■  1 
300    RETURN 

500    IF(TIME1  niS>.LT.TIME2.<I2S>>    GO   TO    1000 
550    MIT2CIT;'    =   MIT2(IT>    +    1 

0BUSE2 ( K2 ( 1 2S+M I T2 ( I T  > -  1 >  >    =    0 

IF<<I2S+NIT2<IT>-1>.EQ.N0BS2>    GO   TO    11  Of 

IF<TIME2a2S+NIT2<IT>>.EQ.TIME2U2S>>    Q0<  TO   550 

IT   =■•    IT   +    1 

I2S   =    I2S   +   NIT2UT-1  > 

GO   TO   50 
1  0 n 0    N I T 1 < I T >    =   N I T 1 (I T >    +    1 

OBUSEKK1<I1S+NITKIT>-1>>    -   0 

IF(aiS+NIT1CIT>-1>.EQ.MOBS1>    GO   TO    1  ZOB 

I F  < T I ME 1 < 1 1 S+M I T 1 < I T  >  > . EQ. TI ME 1 < 1 1 S >  >    GO  TO    1  U  0  0 

IT   =■•    IT   +    1 

IIS   =■■    US   +   MITKIT-1) 

GO   TO   50 
1  100    IEND2   =■•    1 


Figure   13.      Sample   listing   for   program  PREPOST    (continued) 
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IT  -  IT  +  1 

I2S  =■■    I2S  +  NIT2(IT-1  > 
TIME2CI2S)  =  NINE 
I F  <  I  EMC"  1  *  I END2 .  EQ .  1  >  RETURN 
60  TO  50  0 
1200  IEND1  =  1 

IT  ■  IT  +  1 

IIS  -    IIS  +  NIT1 < IT- 1 > 

TIMEKI1S)  =  NINE 

I F  < I END 1  *  I END2 . EQ . 1)  RETURN 

GO  TO  500 

END 

SUBROUTINE  MATCH*:  US,  I2S  ,NIT1  ,NIT2  ,  IT,OBUSE1  ,GBUSE2  ,NTUOL1  J1TU0L2 ', 
1  T.I  ME  1  » T I ME2  , 1  END  1  , 1 END2  ,  K 1  ,  K2  > 

I NTEGER*2  OBUSE 1 ( 1 0 0 ) , 0BUSE2 ( 1 0  0 > 

I NTEGER  N I T 1 < 1 5 > , N I T2 ( 1  5  >  , NTUOL1 ( 1 0 0 > < NTU0L2 ( 1 0 0 ) . T I ME 1 < 1 00  > 

INTEGER  TIME2(100>  ,IND(80>  ,K1  (100>  ,K2<100> 

REAL  DEL<80> 

DfiTfi  NINE/ '9999*/ 

I F  <  <  <  T I  ME 1 < 1 1 S > . EQ . N I  HE ) . OR . < T I ME2  < 1 2S  > . EQ . N I NE ) > . AND . < I END 1  * I END2 
1.EQ.D)  RETURN 

NITA  =»  NIT1  (IT? 

NITB  =■•  NIT2(IT> 

ICHG  =  0 

UBAR1  =  0. 

UBAR2  -   0. 

I F  <  <  N I TA .  EQ .  0  :•' .  OR .  <  N I TB .  EQ .  C  )  >  GO  TO  20  0  0 

M I N  =  M I  NO  < NTUOL 1(11 S > , NTU0L2 ( 1 2S  > ) 

MAX  =  MAXO ( NTUOL 1 ( 1 1 S+NITA- 1 >  ,NTU0L2( I2S+NITB- 1 >  > 

NUM  =  MAXO(NITA,NITB>  -1 

IF(NUM.EQ.O)  GO  TO  50 

ICRIT  -■    (MAX-MINVNUM 

GO  TO  10  0 
50  ICRIT  =  (NTUOL1(I1S>+NTUOL2(I2S>).'-20 
100  IF ( ( NTUOL 1 < 1 1 S > - NTUOL2 < 1 2S >  > . GT . I CR I T >  GO  TO  50 0 

I F ( ( NTU0L2 ( 1 2S > - NTUOL 1(11 S >  > . GT . I CR I T >  GO  TO  60  0 

GO  TO  700 
500  0BUSE2(K2(I2S>)  =  0 

ICHG  =  1 

I2S  -  I2S  +  1 

NITB  =  NITB  -  1 

GO  TO  700 
600  OBUSE1 (K1 (I1S>>  =  0 

ICHG  =  1 

us  =-•  us  +  1 

NITA   =■•   NITA   -1 
700    IF ( ( NITA. EQ . 0 > . OR . ( N I TB . EQ . 0  > )    GO   TO   20 0 0 

I F ( ( NTUOL I ( 1 1 S+N I TA- 1 > - NTU0L2 ( 1 2S+N I TB- 1 >  > . GT . I CR I T  >    GO   TO 
1    800 
IF<(NTUnL2(I2S+NITB-1 >- NTUOL 1 (I1S+NITA-1 >>.GT. ICRIT >    GO   TO 
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1  900 
60  TO  1 100 
80 0  OBUSE 1 < K 1 < 1 1 S+N I Tfl- 1 > )=  0 

ICHG  =  1 

MITfl  =  NITR  -  1 

GO  TO  10  00 
900  0BUSE2 < K2 ( I 2S+N I TB- 1 > >  =  0 
ICHG  =  1 

NITB  =  NITB  -  1 
1000  IFCCNITR.EQ.O'.OR.  <NITB. EQ. 0 >>  GO  TO  2000 
1100  IF (ICHG. EG.  CO  GO  TO  1200 
ICHG  =  0 

GO  TO  100 
1200  IF<NITR.EQ.NITB>  GO  TO  1500 
IF<NITfi.EQ. 1 >  GO  TO  1H50 
IFCHITB.EQ.1 >  GO  TO  1470 

IFCNITfi.6T.NITB>  GO  TO  1300 

UBRR2  =  0. 

DO  1250  1=1 , NITB 
1250  UBRR2  =  UBRR2  +  NTU0L2< I2S+I- 1 > 

UBRR2  =  UBRR2/<NITB+0. > 

DO  1255  1=1 ,NITB 
1255  DELU;  =  RBS<NTU0L2U2S+I-1  >-UBRR2> 

CRLL  SORTR ( H I TB , DEL , I ND > 

NDEL  =  NITB  -  NITfi 

DO  1260  1=1 ,NDEL 
1260  0BUSE2CK2(I2S+INDa>-1>>  =  0 

GO  TO  1500 
1300  UBRR1  =  0 

DO  1350  1=1 ,NITR 
1350  UBRR1  =  UBRR1  +  NTUOL1  ( 1 1  S+I-  1  > 

UBRR1  =  UBRR1.-<NITR+0.  > 

DO  1355-1  =  1  ,NITR 
1355  DELCI)  =  RBSCNTUOLKI1S+I-1  >-UBRR1  > 

CALL  SORTR ( N I TR , DEL , I ND > 

NDEL  =  NITfl  -  NITB 

DO  1360  1=1 ,NDEL 
1  360  OBUSE  1  (.K  1(  1 1  S+ 1  NIK  I  >-  1  >  >  =  0 

GO  TO  150  0 
1450  ITEST  =  IABSvNTUOLI <1 1  S>-NTUQL2U2S>  > 

KEEP  =  I2S 

DO  1455  I  =  2, NITB 

IFnRB:-:<NTUOL1  aiS;-NTUOL2<I2S+I-1>>.LT.  ITEST)    KEEP   =    I2S   +    I 
1H55    ITEST    =    NINO  ( ITEST,  IRBSaiTUOLK  1 1S>-NTU0L2a2S+I-1  >>> 

DO    1460    1=1 ,NITB 

IFd.NE.  CKEEF-I2S+1  >>    0BUSE2(K2a  +  I2S-  1  >  >    =   0 
1460    CONTINUE 

GO    TO    150  0 
1 470    I  TEST   =    I RBS  < NTU0L2< 1 2S  > - NTUOL1 < 1 1 S  >  > 

KEEP   =    IIS 

DO    1475    I =2, NITR 
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IF<IRBS<NTU0L2<I2S>-NTU0L1(I1S+I-1>>.LT.ITEST}  KEEP  •-■■    IIS  +  I  -  1 
1H75  I  TEST  =  MIN0<ITEST,IflBS<NTUOL£<I2S>-NTVOL1 (I1S+I-1 >>> 
DO  1H80  1  =  1  .NITA 

I F < I . ME . (KEEP- 1 1 S+1 >  >  OBUSE1 <K 1 < 1+ 1 1 S- 1 >  >  =  0 
1H80  CONTINUE 
1500  RETURN 

2000  IF(NITA.NE.O>  60  TO  2100 
IF<NITB.NE.O>  GO  TO  2200 
GO  TO  2300 
2100  DO  2150  J79=1 ,NITA 
2 1  50  OBUSE 1 ( K 1(11 S+J79- 1 > >  =  0 

GO  TO  2300 
2200  DO  2250  J79=1 ,NITB 
2250  0BUSE2(K2(I2S+J79- 1 >>  =  0 
2300  RETURN 
END 
C 

C      SUBROUTINE  SORTR 
C 

SUBROUT I NE  SORTR ( N , U , I ND > 
INTEGER  IND(2> 
REAL  U(2>  ,DU(100> 
DO  5  1  =  1 ,N 
5  DU(I>=U(I> 
NM--N-  1 
DO  7  1  =  1  ,N 
7  IND(I>  =  I 
10  K-0 

DO  100  1=1 ,NM 

IF(DU(I).GT.DU(I+1 >>  CALL  SUITCH(DU(I> ,DU<I+1> ,IND(I> ,IND(I+1 > ,K> 
100  CONTINUE 

IF(K.NE.0>  GO  TO  10 
RETURN 
END 
C 
C      SUBROUTINE  SWITCH 

C 

SUBROUT I NE   SU I TCH ( L  , M , I L , I M , K > 

REAL   LsM 

K=1 

DL=L 

DN=M 

IDL=IL 

IDM=IM 

L=DM 

M=DL 

I L= I  DM 

IM=IDL 

RETURN 

END 
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against  the  possibility  of  comparing  traffic  control  pat- 
terns based  on  two  sets  of  observations  which  "unfairly" 
differ  in  overall  volume  conditions.   The  program  outputs 
vectors  which  are  used  in  statistical  comparisons  (based  on 
the  above  match)  and  also  a  printed  table  of  the  observations 
in  the  two  cases  which  have  been  selected  in  the  matching 
process. 

STEP  5 

An  optional  step  that  can  be  appended  to  the  end  of 
the  above  string  is  implemented  by  a  JCL  deck  such  as  the 
one  illustrated  in  Figure  14.   Should  the  investigator  wish 
to  make  a  statistical  analysis  of  measures  of  effectiveness 
aggregated  over  specified  "subnetworks"  of  the  entire  set 
of  usable  links,  in  addition  to  the  standard  link-based  and 
observation-based  analysis,  the  execution  of  program  CONDNS 
(see  Figure  15)  provides  for  this  capability. 

For  each  of  four  measures  of  effectiveness  which  can 
be  meaningfully  aggregated  over  links,  this  program  con- 
structs a  subnetwork  level  data  file.   These  files  are  anal- 
ogous to  the  permanent  MOE  link  files  created  in  Step  3, 
but  instead  of  containing  270  individual  link  MOE  values, 
the  four  new  files  contain  a  specified  number  of  subnetwork 
MOE  aggregate  values  defined  over  a  corresponding  number  of 
pre-specif ied  link  aggregates  (or  subnetworks) . 

To  insure  that  the  network  aggregation  is  always  over 
a  consistent  set  of  actually  used  links,  the  LUSGXXYZ  link 
usability  vector  generated  by  NECTCON  must  be  used  and  the 
program  CONDNS  must  be  executed  twice  for  each  different 
pair  of  cases  to  be  compared--once  for  each  of  the  two  cases, 
given  the  other  with  which  it  is  to  be  compared  subsequently. 

STEP  6 

Of  the  data  preparation  completed,  it  now  remains  only 
to  make  the  final  statistical  analysis  in  comparing  the  two 
traffic  control  patterns  under  consideration  for  a  given 
time  of  day. 

The  sample  JCL  in  Figure  16  executes  the  program 
POSTPROC  (Figure  17) ,  the  modified  statistical  post-proces- 
sor.  It  can  be  applied  either  to  link  level  data  or  the 
subnetwork  level  data  generated  in  the  optional  Step  5. 

The  program  makes  comparisons  on  the  basis  of  one  mea- 
sure of  effectiveness  at  a  time.   It  can  make  its  statisti- 
cal comparisons  for  each  usable  link  across  all  observations 
and/or  for  each  "matched"  pair  of  observation  across  all 
usable  links. 
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//C0NDNS1    EXEC 
//STEPLIB    DO    D 
//    UNIT=SYSDA 
//FT06F001    00 
//FT06FG01    DD 
CONTROL    PATTER 
//FT09F001    DO 

3 
TOTL 
F5L6 

1  2 

BAD 

268      269      27 
//FT10F001    DO 
//    UNIT=SYSDA 
//FT11F001    DD 
//    UNIT=SYSOA, 
//FT12F0C1    DD 
//    UNIT=SYSDA 
//FT13F001    DD 
//    UNIT=SYSDA 
//FTl^FOOl    DD 
//    UNNT=SYSDA 
//FT15F001    DD 
//    UNIT=SYSDA 
//FT16F001    DD 
//    UNIT=SYSDA 
//FT17F001    DD 
//    UNIT=SYSDA» 
//    DCB=(RECFM= 
//    SPACE=(1061 
//FT18FG01    DD 
//    UNIT=SYSDA, 
//    DCB=(RECFM= 
//    SPACE=(1061 
//FT19FC01    DD 
//    UNIT=SYSOA, 
//    DCB=(RECFM= 
//    SPACE=(1061 
//FT20F001    DD 
//    UNIT=SYSDA, 
//    DCB=(RECFM= 
//    SPACE=(48,( 
//FT21F001    DD 
//    UNIT=SYSDA, 
//    DCB=(RECFM= 
//    SPACE=(800, 
//FT23F001    DD 
//    UNIT=SYSDA, 
//    DCB=(RECFM= 
//    SPACE=(1061 
'/C0NDNS2    EXEC 


PGM=CONDNS 
SN=PMMC0.UTCS.L0AD2,V0L=SER=0THERS,DISP=SHR, 

SYSOUT=A 

N    1;     A.M. 
♦ 

270 
-1 
11 
3  4  5       265       266       267      268       269       270 

3 
0 
DSN=PMMCO.UTCS.LUSGAM12tVOL=SER=OTHERStOISP=SHR, 

DSN=PMMC0.UTCS.N0BS(AM1),V0L=SER=0THERS,DISP=SHR, 
LAbEL=(  MtIN) 
DSN=PMMC0.UTCS.M0E2AM1,V0L=SER=0THERS,DISP=SHR, 

DSN=PMMCO.UTCS.MOE4AM1,VOL=SER=OTHERS,DISP=SHR, 

DSN=PMMC0.UTCS.M0E5AM1,V0L=SER=0THERS,DISP=SHR, 

DSN=PMMC0.UTCS.M0E7AM1,V0L=SER=0THERS,DISP=SHR, 

DSN=PMMC0.UTCS.M0E8AM1,V0L=SER=0THERS,DISP=SHR, 

DSN=PMMC0.UTCS.C0NQAM12, 

VQL=S ER=OTHERS,D I SP=( NEW, KEEP, DELETE) , 
VBS,LRECL=8  8,BLKSIZE=10  61), 
t(7,l>) 

DSN=PMMC0.UTCS.C0NSAM12, 

VOL=S ER=01H ERS,D I SP=( NEW, KEEP, DELETE) , 
VBS,LRECL=8  8,BLKSIZE=10ol) , 
,(7,1)) 

DSN=PMMCO.UTCS.C0NTAM12, 

VOL=S ER=OTHERS,D I SP=( NEW, KEEP, DELETE) , 
V3S,LRECL=8  8,BLKSIZE=10ol), 
,(7,D) 

DSN=PMMC0.UTCS.LUSCAM12, 

VOL=S ER=0THERS,D I SP  =  ( NEW, KEEP, DELETE)  , 
VBS,LRECL=44,BLKSIZE=48), 
1,1)) 

DSN=PMMC0.UTCS.LBLAM12, 

V0L=S ER=0TH ERS,D I SP=( NEW, KEEP, DELETE), 
FB,LRECL=80,BLKSIZE=800), 
(2,1) ) 

DSN=PMMC0.UTCS.C0NDAM12, 

V0L=SER=0THERS,D1SP=( NEW, KEEP, DELETE) , 
V8S,LRECL=8  8,bLKSIZE=1061), 
,(7,1)) 
PG:  =CONDNS 


Figure  14.   Sample  listing  of  JCL  for  program  CONDNS 
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//STEPLI 
//  UNIT= 

//FT06F0 
//FTC8F0 
CONTROL 
//FT09FO 

TOTL 
F5L6 

1 
BAD 

268  2 
//FTIOFO 
//  UNIT= 
//FT11FC 
//  UNIT= 
//FT12FO 
//  UNIT= 
//FT13F0 
//  UNIT= 
//FT14F0 
//  UNNT= 
//FT15FO 
//  UNIT= 
//FT16F0 
//  UNIT= 
//FT17F0 
//  U\'IT= 
//  DCB  =  ( 
//  SPACE 
//FT18F0 
//  UNIT= 
//  DCB=( 
//  SPACE 
//FT19FO 
//  UNIT= 
//  DC6=( 
//  SPACE 
//FT20F0 
//  UNIT  = 
//  DCB=( 
//  SPACE 
//FT21FO 
//  UNIT= 
//  DCB=( 
//  SPACE 
//FT23F0 
//  UNIT= 
//  DCB  =  ( 
//    SPACE 


B    DD    DSN=PMMCO 

SYSDA 

01    DD    SYSOUT=A 

CI    OD    * 


>UTCS.LOAD2fVOL=SER*OTHERStOISP=SHRt 


PATTERN 
01    DO    * 


1 !     A.M. 

270 
-1 
11 

3 


265      266      267      268      269      270 


69      270 

01    DO    DSN=PMMC0.UTCS.LUSGAM12,V0L=SER=0THERS,DISP=SHR, 

SYSDA 

01  DD  DSN=PMMC0.UTCS.N0BS(AM2),V0L=SER=0THERS,DISP=SHR, 

SYSDA, LABEL=( ,,,XN) 

01    DO    DSN=PMMC0.UTCS.M0E2AM2,V0L=SER=0THERS,QISP=SHR, 

SYSDA 

01  DD 

SYSDA 

01  DD 

SYSDA 

01  DD 

SYSDA 

01  00 

SYSDA 

01  DD 


DSN=PMMC0.UTCS.M0E4AM2,V0L=SER=0THERS,DISP=SHR, 
DSN=PMMCO.UTCS.M0E5AM2,V0L=SER=0THERS,DISP=SHR, 
DSN=PMMC0.UTCS.MCE7AM2,V0L=SER=0THERS,DISP=SHR, 
DSN=PMMC0.UTCS.M0E8AM2,V0L=SER=0THERS,DISP=SHR, 


DSN=PMMC0.UTCS.C0NQAM21, 
SYSDA, VOL=SER=OTHERS,D I SP=( NEW, KEEP, DELETE), 
RECFM=VBS,LRECL=8  8,faLKSIZE=1061), 
=(1061,(7,1)) 

01  DD  DSN=PMMC0.UTCS.C0NSAM21, 
SYSDA, VOl=SER=OTHERS,D I SP=( NEW, KEEP, DELETE), 
RECFM=VBS,LRECL=8  8,BLKSIZE=1061), 
=(1061,(7,1)) 

01  DD  0SN=PMMC0.UTCS.C0NTAM21, 
SYSDA, VOL=S ER=OTHERS,D I SP=( NEW, KEEP, DELETE) , 
RECFM=VBS,LRECL=8  8,BLKSIZE=1061), 
=(1061,(7,1)) 

01  DD  DSN=PMMC0.UTCS.LUSCAM21, 
SYSDA, VOL= SER=OTHERS,D I SP=( NEW, KEEP, DELETE), 
RECFM=VBS,LRECL=44,BLKSIZE=48), 
=  ( 48 , (  1 ,  1 )  ) 

01  DO  DSN=PMMC0.UTCS.LBLAM21, 

SYSDA, VOL=SER=QTHERS,0 I SP=( NEW, KEEP, DELETE), 
RECFM=FB,LRECL=80,BLKSIZE=800), 
=(800,(2,1) ) 

01  DO  DSN=PMMC0.UTCS.C0NDAM21, 
SYSDA, VOL=SER=OTHERS,D I SP=( NEW, KEEP, DELETE) , 
RECFM=V9S,LRECL=8  8,BLKSIZE=1061), 
=(1061,(7,1) ) 


Figure  14.   Sample  listing  of  JCL  for 
program  CONDNS  (continued) . 
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PAGE    001 
LISTING    OF    JHKA.JHKB.PR0GLIB2  12    JUL    1<>74 

MEMBER    NAME    CONDNS 

C  PROGRAM    CONDNS 

C 

C       A  PROGRAM  TO  CREATE  NETWORK  MOE  FILES 

C 

INTEGER*2  M0E21270) ,M0E4(270) ,M0E5(270) ,M0E7 (270 ) ,M0E8 ( 270 ) 

INTEGER*2  LUSEG( 270 ) ,TABLF( 20 ,1 50 ) ,NLINK( 20 ) ,NL INK2 (20 ) ,DUM ( 270) 

INTEGER  LNLBU20)  ,TITLE(  18) 

REAL  C0NQ(2G),CONS(2O),C0NT(20) ,CONO(20) 

DATA    TABLE/3000*0/,NLINK2/2C*0/ 

READ(8,5)     <TITLE(I),I=1,18) 
5    F0RMAK18A4) 

READ(9t10)    NNET,NLKNT 
10    F0RMAT(2I10) 

REAO(IO)     (LUSEGl J ) , J=l ,NLKNT) 

REAO( 11,20)  NOBS 
20  FORMAT(IIO) 

DO  100  I=1,NNET 

REA0(9,30)  LNLBL(  I)  ,NLINK(I) 
30  F0RMAT(A4,6X,I10) 

1F(NLINK(I ).EQ.-1)  GO  TO  40 

GO  TO  60 
40  12  =  0 

DO  50  I9=1,NLKNT 

IF(LUSEG(I9).NE.l)  GO  TO  50 

12  =  12  ♦  1 

TABLE (It  12)  =  19 
50  CONTINUE 

NLINK(I)  =  12 

GO  TO  100 
60  NLNK  =  NLINK(I) 

REAP(9,70)  (DUM(J9),J9=1,NLNK) 
70  FORMAT (141 5) 

188  =  0 

DO  80  177=1, NLNK 

IF(LUSEG(DUM{ 177) J.NE.l)  GO  TO  80 

188  =188+1 

TABLE(I,I88)  =  DUMU77) 
80  CONTINUE 
100  CONTINUE 

WRITE(6,110)  (TITLE(I),  1=1,18) 
110  FORMAT( •1,,18A4,//) 

DO  140  11=1, NNET 

NLNK  =  NLINK(Il) 

DO  130  12=1, NLNK 

IF(LUSEG(TABLE(Il,I2)).NE.l)  GO  TO  130 

NLINK2U1)  =  NL1NK2U1)  ♦  1 
130  CONTINUE 

LUSEG(Il)  =  1 

IF(NLINK2(  ID.LE.O)    GO    TO    135 

GO   TO    140 

135  LUSEG(Il)  =  0 
WRI7E(6,136)  Il.LNLBLdl) 

136  FORMAT(//,«  »,»NETWORK  #  •,I2,«,  *»A4, •   HAD  NO  USABLE  LINKS*,/) 
140  CONTINUE 

WRITE(20)  (LUSEG( J) ,J=1,NNET) 

Figure  15.   Sample  listing  for  program  CONDNS. 
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MEMBER  NAME  CONDNS 


LISTING    OF    JHKA.JHKB.PRQGLIB2 
(CONT) 


PAGE  002 
12  JUL  1974 


WRITE 

141  FORMA 

WRITE 

145  FORMA 

1.  MIN 

DO  50 

READ( 

READ( 

READ( 

READ( 

READ< 

DO  15 

CONQ( 

CONSC 

CONK 

150  COND( 

DO  30 

IFCLU 

NLNK 

DO  25 

CONQ( 

CONS( 

CONT( 

1920. 

COND( 

10. 

250  CONTI 

300  CONTI 

DO  32 

325  WRITE 

350  FORMA 

WRITE 

WRITE 

WRITE 

WRITE 

500  CONTI 

STOP 

END 


(21,1 
T(18A 
(6,14 
T(/// 
UTES* 
0  1  =  1 
12)  K 
13) 
14) 
15) 
16) 
0  19= 
19)  = 
19)  = 
19)  = 
19)  = 
0  11= 
SEG(I 
=  NLI 
0  12= 
ID  = 
ID  = 
ID  = 


41)     (LNLBL(J),J=1,NNET) 

4) 

5) 

,  •     *,'OBSERV.       NETWORKS 
,3X,»MIN.    OF    DELAY*,/) 
,NOBS 

,(M0E2( J) ,J=1,NLKNT) 
,(M0E4( J) ,J=1,NLKNT) 
,(M0E5(J) ,J=1,NLKNT) 
,(M0E7( J),J=1,NLKNT) 
,(M0E8( J),J=1,NLKNT) 
1,20 

0. 

0. 

0. 

0. 
1,NNET 

D.EQ.O)    GO    TO    300 
NK2(I1) 
1,NLNK 

CONO(Il)    + 

CONS(Il)    + 

CONT(Il)    ♦ 


9X,«  QUEUE  SSI  IX,  •  STOPS*,  4X,»VEH 


M0E4(TABLE(I1,I2))  +  0. 
M0E5(TABLE(I1,I2D  ♦  0. 
(M0E7(TABLE(I1,I2))*M0E2(TABLE(U,I2)  )+0.)/l 


ID    =    COND(Il)    ♦    (M0E8(TABLE(I1,I2))*M0E21TABLE(I1,I2)  )+0.)/6 


NUE 

NUE  - 

5   K7= 

(6,35 

T(»    • 

(17) 

(18) 

(19) 

(23) 

NUE 


1,NNET 

0)    K,LNLBL(K7) ,C0NQ(K7) ,CONS (K7) ,C0NT(K7) ,COND (K7 ) 

,I6,5X,A4,4F16.0) 

K,(CONQ(J) ,J=1,NNET) 

K,(C0NS(J),J=1,NNET) 

K,(C0NT(J),J=1,NNET) 

K,(C0ND(J),J=1,NNET) 


Figure  15.   Sample  listing  for  program  CONDNS  (continued) 
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//POSTP    EXEC    PGM=POSTPROCtTIME=(4,0> 

//STEPLIB    00    DSN=PMMC0.UTCS.L0AD2tDISP=SHR,V0L=SER=0THERSt 

//    UNI7=SYSDA 

//FT06F001    DO    SYSOUT=A 

//FT09F001    DO    * 

1  2    A.M.         80         75  1  2  1      270  3 

//FT10F001    DD    * 
AVERAGE    DELAY 

//FT11F001    DD    DSN=PMMC0.UTCS.LBLAM12,DISP=SHR,V0L=SER=0THERS, 
//    UNIT=SYSOA 

//FT12F001    DO    DSN=PMMC0.UTCS.LUSGAM12,DISP=SHR,V0L=SER=0THERS, 
//    UNIT=SYSDA 

//FT13F001    OD    DSN=PMMC0.UTCS.0BUSAM12,DISP=SHR,V0L=SER=0THERSt 
//    UNIT=SYSDA 

//FT15F001    DO    DSN=PMMC0.UTCS.M0E8AMi,DISP=SHR,V0L=SER=0THERS, 
//    UNIT=SYSDA 

//FT16FC01    DD    DSN=PMMC0.UTCS.M0E8AM2,DISP=SHR , VOL=SER=OTHERS, 
//   UNIT=SYSDA 


Figure    16.       Sample    listing   of    JCL   for   program   POSTPROC 
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'JHKA.JHKB. POSTPROC 

C      PROGRAM  POSTPROC 

C 

C     A  PROGRAM  TO  PERFORM  3  SETS  OF  STATISTICAL  TESTS  ON  A  LINK  AND/OR 
C     LINK  AGGREGATE  BBS  IS  FOR  THE  PURPOSE  OF  COMPARING  THE  EFFECT I UE- 
C     NESS  OF  TWO  CONTROL  PATTERNS  FOR. A  GIUEN  TINE  OF  DAY 

REAL  R  (.  540  >  ,  B  <  270  >  ,  0  ( 540  > 

INTEGERS  LUSEG':'270  ,OBUSE1  (  1  CO  ,OBUSE2<100> 

REAL  MOE  K 90 , 1 35 > , M0E2  < 90 , 1 35  > 

REALMS  NNSTAT , LHKNAM , I AGNAM y I OBSNM 

DIMENSION  LABI  (SO  ,LAB2<20 

I NTEGER  PTRNA , PTRNB , TOD , NOBS  ,NOBS1  , N0BS2 , LNKNT , LNLBLK 270  > 

INTEGER  NLKNTsTWIND 

INTEGER^  IHMOE1  (90  ,270  ,  IHMOE2C90  ,270)  ,IHA 

I NTEGER  I MOE 1 < 90 , 1 35 > , I M0E2 « 90 , 1 35> , NMOE , TESTES 

INTEGER  N0ENAM<5,8> ,SIGP<5> ,SIGKSC3> 

NAMEL I  ST  /PARAM:-'  HMOE>  TESTES  ,  LNKNT  ,  TW I  NO 

Ei"'U  I  VALENCE  (  I HMOE 1  ,  I  MOE  1  ,  MOE  1  >  ,  C I HM0E2  , 1 M0E2  ,  M0E2  > 

DATA  SIGP/'     '-.'*    ','**   '>'***  ','NT  >/>SIGKS/  '<','>  '■>  '  '•' 

DATA  LNKNAN/ 'LINKS    '/  ,  lAGNAM/'AGGREG'.  */,  IOBSNN/ 'OBSERU1.  V 

RE AD < 5, PAR AM > 

READ  < 5  > 1 0 >  LAB 1  , LAB2  ,  NOBS 1  , N0BS2 , NLKNT 
1  C  FORMAT ( 20 A4/20 AH/ 110/11  0 / HO 

MR I TE  <  6*15  >  LAB  1  ,  LAB2 , NOBS  1  ,  N0BS2  ,  NLKNT  ,  NMOE , TESTES , LNKNT  » TW I ND 
15  FORMAT <M  POST  PROCESSOR  CONTROL  PARAMETERS''/ '0 CONDITION  A  »  ,20A4/ 

1  ' 0  COND I T I ON  B  ' , 20 AH/ ' 0 NOBS  1  = ' , '  N0BS2= ',16,'  NL I NKS=  ',15/ 

2  '  0  NMOEr  '  >  1 7  ,  '  TESTES^  ',15,'  LNKNT*  »  ,  J.  6 >  '  TW  I  ND=  ',16  > 
READ(5s2C>  <<MOENRM<I  >J>  ,1  =  1  ,5)  ,J=1  ,NMOE> 

20  FORMAT <5AH > 

IF<LNKNT.EQ.2>  READ<1  1  ,HO  (LNLBL<  I  >  ,1  =  1  .NLKNT) 
HO  FORMAT-::  1  BAH > 

READ-::12>  (LUSEGvJ)  ,J=1  , NLKNT > 

NUSLNK  -   \f 

DO  H2  J=1 , NLKNT 

IF<::LIJSEG(J>.EQ.  1  >  NUSLNK  =  NUSLNK  +  1 
H2  CONTINUE 

READ  ( 1  3  >  ( OBUSE 1  ( J 1  >  ,  J 1  -■  1  ,  NOBS  1  >  ,  <  0BUSE2  (  J2  }  ,  J2=  1  ,  N0BS2 > 

NOBS  -•   0 

DO  H5  1=1  » NOBS 1 

IF<OBUSEKI>.EQ.  1  >  NOBS  =  NOBS  +  1 
H5  CONTINUE 

DO  10  CO  1  =  1  ,NNOE 

IF(TWIND-2>    200 ,300 ,400 
200    J   =   0 

DO   210    J  1=1  ,NOBS1 

I F  <  OBUSE  1  <  J 1  > .  EC! .  0  >    GO   TO   20  9 

J   -   J   +    1 

READ < 1 5 ?    K  >  < MOE  K  J , 1 9 > , 1 9= 1 » NLKNT  > 

GO   TO   210 
20  9   RE AD v 1 5  >    K  ,  ( AA , 1 9= 1  , NLKNT  > 
210    CONTINUE 


Figure    17.       Sample    listing    for   program   POSTPROC 
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J  -  0 

DO   220    J 1-1  >N0BS2 

IFC0BUSE2CJ1 >.EQ.C>    GO   TO   219 

J  -   J   +    1 

READ <1 6 >  K><M0E2<J»I9},I9=1 , NLKNT) 

GO  TO  220 

2 1 9  RERD< 1 6  >  K  ,  ( AA  ,  1 9= 1  ,  NLKNT  ) 

220  CONTINUE 
GO  TO  480 

300  J  =  0 

DO  310  J  1  =  1  »NOBS1 

I F  (  OEUSE 1  (.  J 1  )  .  EQ .  0  )  GO  TO  30  9 

J  =  J  +  1  • 

READ < 1 5 )  K , < I MOE 1 ( J » 1 9 ) , 1 9= 1  ,  NLKNT > 

GO  TO  310 
30  9  RERD< 15)  K  , < I fl  » 1 9= 1  j NLKNT  ) 
310  CONTINUE 

J  =  0 

DO  320  J 1=1  >N0BS2 

I F ( 0BUSE2 ( J 1 ) . EQ . 0  )  GO  TO  319 

J  =  J  +  1 

READ < 1 6 )  K  ,  < I M0E2 ( J  > 1 9 ) , 1 9= 1  - NLKNT  ) 

GO  TO  320 

319  READ  <  1-6  >  K  ,  <Ifl  ,  19=1  .NLKNT) 

320  CONTINUE 
GO  TO  480 

400  J  =■■   0 

DO  410  J 1=1 >NOBS1 

I F  < OBUSE 1 ( J 1 > . EQ . 0 )  GO  TO  40 9 

J  =  J  +  1 

READ •:  1  5 >  K  ,  ( I HMOE  K  J  » 1 9)  ,  19= 1  , NLKNT  > 

GO  TO  410 

409  REflD<15)  K.UHfl,  19=1  .NLKNT) 

410  CONTINUE 
J  =  0 

DO  420  J1=1 ,N0BS2 

IF<0BUSE2(J1 ).EQ.0)  GO  TO  419 

J  =  J  +  1 

READ  (  1  f,  )  K  s  ( I HM0E2  (  J  ,  1 9  )  ,  1 9= 1  >  NLKNT  > 

GO  TO  420 

4 1 9  READ < 1 6 >  K  ,  < IHA  > 1 9= 1  , NLKNT  ) 

420  CONTINUE 
480  KDO  =  0 

490  KDO  =  KDO  +  1 

NMSTflT    =   LNKNAM 

IF<  (TESTES.  EG!.  3>.  OR.  <:KD0.EQ.2>>    GO   TO   495 

IF<N0BS.LT.3)    GO   TO   950 

IF<LNKNT.EQ.2)    NMSTflT   =    IAGNAM 

GO    TO    498 
495    IFvNUSLNK.LT. 3 >    GO   TO   970 

NMSTflT   =    IOBSNM 


Figure    17.       Sample    listing    for   program   POSTPROC    (continued) 
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IF<< ISIGP. GE.  1  >.RND.  <  ISIGP.  NE.4>  .  AND.  ( ISIGM.  EQ.  C  >  >  IDIR--1 
IF<<ISIGM.GE.  1  >.AND.  (ISIGM. NE.4> . AND.  <  ISIGP.  EQ.  C  )  >  IDIR--2 
ISIGX--ISIG2 

I F  (  I D I  P. .  ME .  3  >  I S I  GX=MAXO  <  I S I GP  » I S I GM  > 

DO  540  19=1 JMMBR 
540  A<NMBR+I9>=  B(I9J 

CALL  CALCXA  sB  >NNBR\ABAR  ,BBAR:,UARA',VARBC< 

IF<NMBR'.LT.4>  GO  TO  600 

IF<NMBR.LT.9>  GO  TO  580 

CALL  TTEST<fl*B.NMBR\ISIGT,D> 

TT=D<1> 
580  CALL  UTEST<AHD,NriBRSHMBRMSIGU> 

TU-DC1  > 
600  STDUA  =:  SQRTaiARA> 

STDUB  =■■   SQRT(UARB) 

DELBAR  =■■   ABAR  -  BBAR 

I F < < ABAR+BBAR) . EQ . 0 . 0  >  GO  TO  650 

DELPER  =■■   200.*  ( DELBAR/  •:  ABAR+BBRRO  > 

GO  TO  700 
650  DELPER  =^  0.0 
700  IF(<LNKNT.EQ.2>.AND'.  (KDO.EQ.  1  >>  GO  TO  800 

WRITE-:'.  6  ,71  0  >      J  sABAR  .STDUA  sBBAR, STDUB, DELPER'.TT  sSI6P<  ISIGT+1  >  , 
1 TU s  S I GP ( I S I GU+ 1 > , I TP , ITM , I T2 , SIGKS < 
2I0IR> ,SIGP<ISISX+1 > 
710  FORMAT ('  '  >  15  >2X  ,4F1  0  . 1  >F1  1  .  1  »  '  "i » »2<F9.  3, 1  X  »A3>  , 
13X,3I4,2X,R1 ,A3> 

GO  TO  90  0 
S00  WRITE(6  ,810  >  LNLBL<  J>  ,ABAR  .STD'.'AvBBAR  ,STDUB',DELPER!,TT  »SIGP<  ISIGT  +  1 
1  >         >TU>SIGP<ISIGU+1  >  ,ITP,ITM,IT2>SIG 
2KS<IDIR> ,SIGP<ISIGX+1 > 
810  FORMAT (  '  '  ,  A5  ,2X  ,4F1  0  .  1  >F1  1  .  1  ,  '  Ji '  ,2<F9.  3, 1  X  ,A3>  , 

13X»3IH,2X-,A1  >A3> 
900  CONTINUE 

I F< <KDO. EQ. 1 >. AND. < TESTES. EQ.2>>  GO  TO  490 

GO  TO  1000 
950  NRITE<6,960>  NOBS 
960  FOPMAT-::/.--//'  '  >  'TOO  FEN  OBSERVATIONS  AVAILABLE  TO  TEST  :  '  ,  15  „///> 

IF((KDO.EQ. 1 >. AND. (TESTES. EQ.2>>  GO  TO  490 

GO  TO  100  0 
970  NR I TE ( 6  , 980  >  NUSLNK 

980  FORMAT-::////'  '  s 'TOO  FEN  USABLE  LINKS  AVAILABLE  TO  TEST  :  '  > 15  ,///> 
1000  CONTINUE 

STOP 

END 

SUBROUTINE   READERS  A sB  ,NOE1  .M0E2.IM0E1  ,  IM0E2  ,  IHMOE1  ,  IHM0E2  :,TWINDV 
1    LUSEG  srNLKNT  ,NOBS  ,  J  .NNSTAT  ,  IOBSNM> 
REAL   A < 540  >  , E < 270  > , MOE 1 < 90 , 1 35  > , M0E2  v  90  , 1 35> 
I NTEGER    I MOE 1 ( 90 , 1 35 > , I M0E2  < 90 , 1 35  >  ,  TW I ND 
REALMS   NMSTAT,IOBSNM 


Figure    17.       Sample    listing    for   program  POSTPROC    (continued) 
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498  CONTINUE 

WRITE-::*  ,50  > 
50  FORMAT <  '  1  '  ,24K,  'STATISTICAL  COMPARISON  OF  A  MEASURE  OF  EFFECTIUENE 
1SS  FOR  CONDITIONS  "A"  AND  "B"',/> 
WRITE<6 ,60)  LABI 
URITEC6.70)  LAB2 
60  FORMAT <'  »»1 OX, 'CONDITION  A  :  ' ,2CAH> 
70  F  OPM  AT  <  '  ',10  X ,  '  COND I T I  ON  B  :  '  >  20  AH  > 
IF(LNK.NT.EQ.2>  GO  TO  90 
WRITE<6>8CO 
SO  FORMAT  ('  ',  1  OX , 'COMPARISONS  MADE  BV  L  INK ',/.:- 

GO  TO  1 10 
90  WRITEC6..100} 
100  FORMAT  ('  '  ,10:-:,  'COMPARISONS  MADE  BV  LINK  AGGREGATE',/') 
110  IF<  <  KDO .  EG! .  1; .  AND .  ( TESTBS .  NE .  3 > )  GO  TO  1  1  5 
WRITE(6,120>  NUSLNK 
GO  TO  1 1 8 
1 15  WRITE<6 ,120 )  NOBS 

1  20  FORMAT  (  '  ',10  X ,  '  STAT  I  ST  I CAL  SAMPLE  SIZE  USED  :  '  ,  1 5  ,  /  ) 
118  WRITE<6,130>  CMOENAM< J  ,\ ? , J=1  ,5)  ,NMSTAT 
130  FORMATC  ',  1  OX  ,  'BASIS  OF  COMPARISONS  :  ',5AH,  '   BV  ',  AS  ,.  ■•'.-•/> 

WRITE^IHO) 
140  FORMAT'''  ','LNKNT  /' ,6X , 'CONDITION  A ' ,9X , 'CONDITION  B  '  ,6X , 'DIFFERE 
1NCE     T  TEST       U  TEST     KOLMOGOROU-SM1RNOU") 
WRITE<6,150> 
150  FORMAT <  '  '  , 'OBSERU.       MEAN      STDU      MEAN      STDU    OF 
1  MEANS         T          U/Z        T+   T-    T2   SIG.'> 
WRITE<6>160> 
160  FORMAT':'  '  ,7< '-  '  >  ,4<3X  ,  ' '  >  »3<3X  >  1  0  (  '-  '  >  >  ,     3X  ,  1  2< '- '  > 

NTEST  =  NLKNT 

IF<NMSTAT.EQ. IOBSNM>    NTEST   =    NOBS 
NMBR   -   NOBS 

IF(NMSTAT.EQ. IOBSNM>    NMBR   =    NUSLNK 
DO   900    J=1  ,  NTEST 

IF((NMSTAT.NE. IOBSNM>.AND. (LUSEG( J> . NE. 1 > >    GO   TO   900 
TT=0  . 
TU=C  . 
ITP-0 
ITM=0 
I T2--0 
ISIGT="-4 
ISI6U--H 
ISIGP=H 
ISIGM--H 
ISIG2=4 
ISIGX=H 

CALL   READER<A,B,NOE1  ,M0E2,IM0E1  , IM0E2 , IHMOE1  , IHM0E2 ,TWIND vLUSEG  * 
1    NLKNT , NOBS  < J ,NMSTAT . I OBSNM> 
CALL   KSTEST < NMBR , A , B  ,  I TP , I TM , IT2 , 1 S I GP ,  I S I GM , I S I G2  > 
IDIR=3 


Figure    17.       Sample    listing    for   program   POSTPROC    (continued) 
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I NTEGER*2  I HM0E1 < 90 , 270 > , I HM0E2  < 90 , 270  > , LUSEG<  270 ) 

IF<NMSTRT.EQ. IOBSNMft  GO  TO  500 

IFCTWIND-2)  100  ,200  ,300 
100  DO  110  1-1 ,NOBS 

fl(I>  =  MO  El  a  >•-'> 
1 10  B<I>  =  M0E2(I »J> 

RETURN 
200  DO  210  1=1 ,NGBS 

fl(I>  =  IMOE1 CI ,J>  +  0. 
210  B<I>  =  IMOE2(I  ,J>  +  0. 

RETURN 
300  DO  310  1=1 ,NOBS 

flXI>  -■    IHMOE1  (I  ,J>  +  0. 
310  B<I)  =  IHM0E2CI ,J>  +  0. 

RETURN 
500  I F < TW I ND- 2  >  60 0 , 70  0 , 80 0 
600  I  *  0 

DO  610  11=1  ,-NLKNT 

I F  <  LUSEG  (ID.  NE .  1  ;  GO  TO  610 

1  =  1  +  1 

R<I>  =  MGEKJ,I1  > 

B(I>  -   M0E2<J,I1 ) 
610  CONTINUE 

RETURN 
700  I  =  0 

DO  710  11=1  J1LKNT 

I F  <  LUSEG  •::  1 1  >  .  NE .  1  >  GO  TO  7 1  0 

1  =  1  +  1 

R<I>  =  IMOE1  (..Ml  >  +0. 

B  <  I  >  =  I M0E2  (.  J  , 1 1  >  +  0  . 
710  CONTINUE 

RETURN 
800  I  =  0 

DO  8 10  1 1  =  K  NLKNT 

IF (LUSEG< 11 >.NE. 1 >  GO  TO  810 

1  =  1  +  1 

R(I>  =  IHMOE1 (J ,11 )  +  0. 

B(I>  =  IHM0E2(J,I1 >  +  0. 
810  CONTINUE 

RETURN 

END 


Figure  17.   Sample  listing  for  program  POSTPROC  (continued) 
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In  each  case,  the  mean  and  standard  deviation  for  the 
MOE  (for  each  link  or  observation)  is  calculated  for  each 
of  the  two  traffic  control  patterns.   The  percent  difference 
of  the  two  means  is  also  calculated.   This  is  followed  by 
a  two-tailed  T  test  and  U  test  and  a  one-tailed  Kolmogorov- 
Smirnov  test,  all  constructed  to  test  for  statistically 
significant  differences  between  the  set  of  MOE  values  for 
the  two  cases.   The  results  of  these  tests,  along  with  the 
significance  levels  achieved,  are  printed  out  in  tabular 
form  for  analysis. 
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DICTIONARY  OF  MAJOR  FORTRAN  VARIABLES 


1.  DATE (I)  INTEGER  CHARACTER 

A  three  element  vector  to  store  the  date  of  an  observa- 
tion, such  as  bMARb04b74bb. 

2.  GMEAN(I,J)  REAL 

The  grand  mean  of  MOE  I  for  link  J  over  all  observa- 
tions in  a  control  pattern/time  of  day  file. 

3.  IMEAN(I,J)  REAL 

The  individual  mean  of  MOE  I  for  link  J  over  all  obser- 
vations in  a  given  15-minute  period  in  a  control  pattern/ 
time  of  day  file.   The  matrix  is  reused  for  successive  15- 
minute  periods. 

4.  INDOUS(J)  INTEGER*2 

The  index  of  data  quality  for  link  J  for  a  specific 
individual  data  element.   The  vector  is  reused  for  different 
observations.   The  significance  of  the  index  values  is  as 
follows : 

INDOUS(J)  MEANING 

0         Data  element  O.K.;  link  to  be  considered 
as  functioning  multi-detector. 

2         Data  element  O.K.;  link  to  be  considered 
as  single-detector  only. 

4  Data  element  contains  data  judged  to  be 
unlikely  to  be  correct  ("BAD");  link  con- 
sidered multi-detector. 

5  Data  element  was  flagged  in  original  data 
files  as  unusable  ("FLAGGED");  link  con- 
sidered multi-detector. 

6  As  4 ,  but  link  considered  single  detector 
only. 

7  As  5,  but  link  considered  single  detector 
only. 
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5.  LUSE(J)  INTEGER*2 

The  link  usability  status  of  link  J.   (Applies  across 
all  observations  in  a  case) . 

LUSE(J)  MEANING 

0  Link  J  is  not  usable  for  statistical  anal- 
ysis. 

1  Link  J  is  usable  for  statistical  analysis. 
It  is  to  be  considered  a  multi-detector 
link. 

2  Link  J  is  to  be  considered  a  single-detec- 
tor link.   Data  elements  for  this  link  may 
be  used  in  all  applications  for  which 
single-detector  link  data  is  acceptable. 

6.  LUSEG(J)  INTEGER*2 

As  LUE(J),  but  it  is  used  as  the  common  link  usability 
index  when  more  than  one  control  pattern/time  of  day  file 
is  being  considered  simultaneously,  such  as  in  a  statisti- 
cal comparison.   When  subnetworks  are  being  used,  the  J 
subscript  may  alternatively  also  apply  to  subnetworks  in- 
stead of  individual  links. 

LUSEG(J)  MEANING 

0  At  least  one  relevent  LUSE(J)  =  0 

1  All  relevant  LUSE(J)  =  1 

2  All  relevant  LUSE(J)  =  1  or  2  and  at  least 
one  LUSE(J)   =  2 

7.  MOE(I,J)      or       MOEI(J)        INTEGER*2 

The  value  of  measure  of  effectiveness  (MOE)  number  I 
for  link  J  for  a  given  observation.   When  MOE (J)  appears 
with  no  reference  to  I,  the  value  of  I  is  implied  by  context 
and  the  data  files  being  used. 

I  MEASURE  OF  EFFECTIVENESS 


Link  I.D.  =  J  (or  a  negative  data  flag  in 
original  data  files) 

Average  hourly  vehicle  flow  rate  for  the 
detectorized  lane  (VOLUME) . 
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3  Percent  lane  occupancy 

4  Average  number  of  cars  queued  per  cycle 

5  Number  of  stops 

6  Average  spot  speed  in  m.p.h. 

7  Average  travel  time  for  link  in  seconds 
x  32  (=25) 

8  Average  vehicle  delay  in  link  in  seconds. 

8 .  NBAD  INTEGER 

The  number  of  "bad"  (see  above  for  meaning)  link  data 
elements  for  a  given  observation. 

9 .  NFLAG         INTEGER 

The  number  of  "flagged"  link  data  elements  for  a  given 
observation. 

10.  NOBS  INTEGER 

The  number  of  observations  for  a  given  control  pattern/ 
time  of  day  ,file.   The  presence  of  a  subscript  or  suffix 
for  the  variable  permits  the  handling  of  more  than  one  such 
file  simultaneously. 

11.  NSDET  INTEGER 

The  number  of  usable  single-detector  links  for  a  given 
observation. 

12.  OBUSEl(J)  and  OBUSE2 (J)      INTEGER*2 

The  observation  usability  index  for  observation  number 
J  for  control  pattern/time  of  day  files  no.  1  and  2,  respec- 
tively.  (The  numbers  1  and  2  are  used  merely  to  distinguish 
the  two  cases  being  dealt  with.) .   A  value  of  0  means  that 
the  corresponding  observation  should  not  be  used.   A  value 
of  1  indicates  the  observation  should  be  used.   (Applies 
across  all  links) . 

13.  TIME  INTEGER        CHARACTER 

Contains  the  four-digit,  24-hour  clock  time  for  a  given 
observation.   Variable  reused  for  successive  observations. 
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14.   TITLE (18)    INTEGER 

Contains  the  up-to-72  character  title  of  a  given  con- 
trol pattern/time  of  day  file,  such  as  "CONTROL  PATTERN  1; 
MIDDAY". 
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INDIVIDUAL  FORTRAN  PROGRAM  DOCUMENTATION 

PROGRAM  OBSOUT 

Summary  Description 

This  program  deletes  observations  that  are  deemed  un- 
usable from  an  original  daily  MOE  detector  summary  file, 
and  creates  a  copy  of  the  original  daily  file  with  these 
deletions  under  a  different  name.   This  program  must  be 
applied  individually  to  each  daily  file  in  which  one  or  more 
deletions  are  desired. 

Program  Limits  and  Variable  Dimensions 

The  program  is  designed  specifically  to  edit  the  stan- 
dard 15-minute  detector  summary  files  described  below.   Each 
file  must  have  no  more  than  50  separate  observations. 

Definitions  of  Important  Variables 

1.  TAB (2160)        INTEGER* 2 

A  storage  variable  used  in  copying  the  numerical  data, 
one  observation  (and  record)  at  a  time. 

2.  EDIT (I) ~        INTEGER 

The  observation  deletion  index. 
Technical/Quantitative  Details: 

None 

Program  Parameters  and  Tests 

If  EDIT (I) =0,  observation  I  is  retained  in  the  new 
file  created.   Otherwise,  it  is  deleted. 

Subroutines  Referenced: 

None 
Program  Input 

Permanent  Files 
NAME:  PMMCO . UTCS . PET . MMMDD 

DESCRIPTION:        15-minute  MOE  detector  summaries  for  the 
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day  MMMDD 


SOURCE : 

DISPOSITION 
I/O  FORMAT: 


UNIT  NO. : 


On  disk  from  preliminary  processing  of 
original  detector  summary  tapes 


SHR 


-  DATE, TIME, TAB 

-  INTEGER  DATE(3),TIME 
INTEGER* 2  TAB (2160) 

-No.  of  records  =  no.  of  observations 
in  file 

FT08F001 


Temporary  Files: 
None 

Control/Data  Cards 
DESCRIPTION: 


SOURCE: 

COLUMN  DESCRIP- 
TION: 


The  observation  deletion  vector  for  a 
specified  daily  file 

Following  FT09F001  DD  *  card  in  JCL 

Starting  in  column  1,  the  I ' th  column 
contains  the  digit  value  of  EDIT (I).   As 
many  columns  are  used  as  there  are  obser- 
vations in  the  daily  file  being  edited. 


UNIT  NO. :  FT09F001 

Program  Output 

Permanent  Files 
NAME: 


DESCRIPTION: 

LOCATION: 
DISPOSITION: 
I/O  FORMAT: 

UNIT  NO. : 


PMMCO.UTCS.DET.MOD.  MMMDD 

Copy  of  PMMCO . UTCS . PET . MMMDD  with  dele- 
tions made 

Disk 

NEW, KEEP 

Just  as  PMMCO . UTCS . PET . MMMDD ,  but  fewer 
records 

FT10F001 
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Temporary  Files 

None 

Printer,  Error  Messages 

(See  Figure  18.  for  a  sample  printer  output) 

DESCRIPTION:        The  message:   "OBSERVATION  [DATE   TIME] 

DELETED"  is  printed  out  for  every  record 
deleted. 

ERROR  MESSAGE:      The  message  "MORE  THAN  50  RECORDS  IN 

DATA  SET"  printed  out  if  the  file  end  has 
not  been  reached  after  reading  50  records 
The  program  then  terminates  prematurely. 

UNIT  NO. :  FT06F001 

JCL  to  Run  Program 

For  each  run: 

Use  the  appropriate  MMMDD  wherever  the  suffix  should 
appear . 

Use  the  appropriate  series  of  zeros  (or  blanks)  and 
nonzer-os  on  the  data  card  to  delete  the  desired  obser- 
vations from  the  MMMDD  file. 
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OBSERVATION 

APR 

26 

1974 

0745 

DELETED 

OBSERVATION 

MAY 

20 

1974 

1330 

DELETED 

OBSERVATION 

MAY 

28 

1974 

1345 

DELETED 

OBSERVATION 

MAY 

30 

1974 

0915 

DELETED 

OBSERVATION 

MAY 

31 

1974 

0715 

DELETED 

Figure  18.   Sample  printout  from  run  of  program  OBSOUT 
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PROGRAM  CONFIL3 

Summary  Description 

This  program  performs  four  tasks : 

It  first  trisects  and  then  consolidates  all  of  the 
daily  summary  files  for  a  given  control  pattern  into  three 
time-of-day  files:   a.m.,  midday,  and  p.m. 

It  tests  the  individual  data  elements  and  assigns  them 
data  quality /usability  index  values,  which  are  saved. 

It  calculates  the  number  of  links  that  are  (a)  bad; 
(b)  flagged;  and  (c)  usable,  but  single-detector  for  each 
observation  and  saves  them. 

It  deletes  observations  which  exceed  specified  maximum 
numbers  of  either  bad  or  bad  +  flagged  links  and  prints  a 
message  to  that  effect.   Because  data  can  be  removed  only 
entire  row  or  column  (link  across  all  observations  or  obser- 
vation across  all  links)  at  a  time,  deleting  "spotty"  ob- 
servations helps  keep  the  number  of  links  that  cannot  be 
used  for  analysis  down  to  a  minimum. 

Program  Limits  and  Variable  Dimensions 

C0NFIL3  can  be  applied  in  its  present  form  only  to  the 
standard  format  daily  detector  summary  files  with  data  for 
eight  MOE's  for  270  links.   The  value  of  DATE(l)  must  always 
be  a  blank  followed  by  the  standard  three-letter  abbrevia- 
tion of  one  of  the  12  months. 

Definitions  of  Important  Variables 

1.  NDET(J)  INTEGER*2 

The  number  of  detectors  reported  operating  on  link  J. 

2 .  INDPER  INTEGER 

Equals  1,  2,  or  3  depending  on  whether  we  are  dealing 
with  the  a.m.,  midday,  or  p.m.  periods,  respectively. 

3.  TEST (J)  INTEGER 

Criterion  values  used  to  determine  data  quality  status 
and  whether  an  observation  should  be  deleted: 
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TEST(l)  The  minimum  reasonable  lane  volume  [[8]] 

TEST (2)  The  maximum  reasonable  average  spot  speed 

[[50]] 

TEST (3)  The  maximum  reasonable  link  travel  time 

in  seconds  (x32)  [[6000]] 

TEST(4)  The  maximum  reasonable  lane  volume  [[1500]] 

TEST (5)  The  number  of  bad  links  per  observation 

which  requires  that  the  observation  be 
deleted  [[5]] 

TEST (6)  The  number  of  bad  +  flagged  links  per 

observation  which  requires  that  the 
observation  be  deleted  [  [75] ] 

Technical/Quantitative  Details 

None 

Program  Parameters  and  Tests 

1.  0945  is  the  latest  a.m.  time 
1600  is  the  earliest  p.m.  time 

2.  The  program  assumes  that  there  is  a  data  file  misalign- 
ment or  similar  I/O  problem  if  DATE(l)  of  any  observa- 
tion does  not  equal  to  "bMMM"  where  MMM  is  the  standard 
three-letter  abbreviation  of  a  month. 

3.  A  link's  data  element  for  an  observation  is  classified 
single-detector  if: 

(a)  NDET(J)  £  1,  or 

(b)  MOE(4,J),  MOE(5,J),  MOE(8,J)  all  =  0 

(Since  these  values  are  typically  zero  for  single- 
detector  links,  for  which  they  cannot  be  calculated). 

4.  A  link's  data  element  is  classified  "bad"  if: 

(a)  MOE(2,J)  <  TEST(l),  or 

(b)  MOE(6,J)  >  TEST(2),  or 

(c)  MOE(7,J)  >  TEST(3),  or 
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(d)  MOE(I,J)  <  0         I  =  3, ,8,  or 

(e)  M0E(2,J)  >  TEST(4),  or 

(f)  M0E(1,J)  4   J  and  M0E(1,J)  >  0 

5.  A  link's  data  element  is  classified  "flagged"  if: 
M0E(1,J)  f   J  and  MOE(l,J)<  0 

6.  An  observation  is  deleted  if: 

(a)  NBAD  >  TEST (5),  or 

(b)  NBAD  +  NFLAG  >  TEST (6) 
Subroutines  Referenced 

None 

Program  Input 

Permanent  Files 

NAME:  PMMCO . UTCS . PET . MMMDD* 

(*  all  MMMDD  for  a  given  control  pattern 
concatenated  in  chronological  order  for 
the  unit  number  listed  below.   For  all 
files  which  had  observations  deleted  by 
program  OBSOUT,  PMMCO . UTCS . PET . MOD . MMMDD 
should  be  used  instead.) 

The  daily  15-minute  MOE  detector  summary 
files  for  all  days  under  the  given  con- 
trol pattern,  using  the  output  files  of 
OBSOUT  instead  of  the  original  daily 
files  where  necessary. 

Disk  files 

SHR 

See  description  under  program  OBSOUT 

FT11F001 


DESCRIPTION: 


SOURCE : 
DISPOSITION: 
I/O  FORMAT: 
UNIT  NO. : 


Temporary  Files 
None 
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Control/Data  Cards 


DESCRIPTION: 


SOURCE : 


COLUMN  DESCRIP- 
TION: 


UNIT  NO. : 
DESCRIPTION: 
SOURCE : 


Vector  giving  the  number  of  detectors 
that  were  reported  being  on  each  link. 

Following  the  FT09F001  DD  *  card  in  the 
JCL 

Starting  in  column  1  of  each  card  and 
continuing  to  column  80  before  continuing 
on  the  next  card,  the  single-digit  inte- 
ger representing  the  number  of  detectors 
on  link  J  appears  in  the  J'th  column. 

FT09F001 

The  criterion  values,  TEST(I) . 

Following  the  FT10F001  DD  *  card  in  the 
JCL. 


COLUMN  DESCRIP- 
TION: 


VALUE 

TEST(l) 
TEST  (2) 
TEST (3) 
TEST  (4) 
TEST(5) 
TEST (6) 


COLUMNS 

1- 

-10 

11- 

-20 

21- 

-30 

31- 

-40 

41- 

-50 

51- 

-60 

UNIT  NO. :  FT10F001 

Program  Output 

Permanent  Files 
NAME: 


DESCRIPTION: 

LOCATION: 
DISPOSITION: 


PMMCO . UTCS . TEMP AMY , 

PMMCO.UTCS.  TEMPMDY, 

and  PMMCO.  UTCS.TEMPPMY,  respectively. 

The  a.m.,  midday,  and  p.m.  time-of-day 
files  for  control  pattern  number  Y, 
respecitvely . 

Disk 

NEW,  KEEP 


55 


I/O  FORMAT:         -  DATE , TIME ,NBAD,NFLAG ,NSDET 

( (INDOUS(J) ,MOE(I.J) ,1=1,8) ,J=1,27  0) ) 

-  INTEGER  DATE (3) ,TIME ,NBAD ,NFLAG ,NSDET 
INTEGER*2  INDOUS (270) ,MOE (8 , 270) 

-  No.  of  Records  =  no.  of  observations 
retained  as  usable  for  control  pattern/ 
time  of  day  of  file. 

UNIT  NO.s:  FT12F001,  FT13F001,  FT14F001,  respectively, 

Temporary  Files 

None 

Printer,  Error  Messages 

(See  Figure  19. ) 

DESCRIPTION:        A  listing  of  all  observations  deleted  by 

the  program  from  its  output  files,  giving 
the  date  and  time  of  the  observation  as 
well  as  the  values  of  NBAD,  NFLAG,  and 
NSDET. 

ERROR  MESSAGES:     If  any  of  the  DATE(l)  values  is  not  one 

of  the  12  permitted  values,  the  job 
terminates  prematurely  after  the  follow- 
ing message  is  printed:   "THE  START  OF 
A  15-MINUTE  FILE  IS  INCORRECT  OR  MIS- 
PLACED: "   followed  by  what  should  be  the 
date  and  time  of  the  observation  and  the 
first  link  worth  of  MOE  values. 

UNIT  NO. :  FT06F001 

JCL  to  Run  Program 

To  make  a  run  for  any  particular  control  pattern,  the 
Y  suffix  must  be  the  appropriate  number  in  all  file  names 
in  which  it  appears  and  the  concatenated  set  of  daily  sum- 
mary files  must  be  made  those  falling  in  the  period  of  the 
appropriate  control  pattern. 
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PROGRAM  OLOUT 
Summary  Description 
This  program: 

1.  Counts  and  stores  the  number  of  individual  data 
elements  by  data  quality/usability  level  for  each  link  over 
all  observations  for  the  control  pattern  and  time  of  day 
under  consideration.; 

2.  Makes  the  final  deletion  of  observations  based 
upon  a  maximum  number  of  links  in  any  given  observation 
which  can  have  a  data  quality  index  indicating  a  single- 
detector  link,  while  the  nature  of  the  link  data  over  all 
observations  indicates  that  the  link  is  functioning  predom- 
inantly as  a  multiple-detector  link.   (A  large  number  of 
such  links  probably  indicates  a  serious  detector  problem.); 

3.  Counts  and  saves  the  number  of  remaining  usable 
observations  in  the  input  file.; 

4.  Constructs  a  link  usability  vector  which  will  spec- 
ify the  level  of  usability  of  each  link  for  this  control 
pattern  and  time  of  day. 

Program  Limits  and  Variable  Dimensions 

The  program  is  made  specifically  to  handle  the  standard 
case  of  eight  MOE ' s  and  270  links. 

Definitions  of  Important  Variables 

1.   INDG(I,J)        INTEGER* 2 

The  number  of  individual  data  elements  over  all  obser- 
vations recorded  for  link  I  falling  in  the  I ' th  data  quality/ 
usability  class: 

I        DATA  QUALITY/USABILITY  LEVEL 


1  INDOUS(J)  =  0 

2  INDOUS(J)  =  2 

3  INDOUS(J)  =  4 

4  INDOUS (J)  =  5 

5  INDOUS (J)  =  6 

6  INDOUS (J)  =  7 

The  maximum  attainable  value  of  INDG(I,J)  is  the  num- 
ber of  observations  for  this  case. 
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2.   TEST2(I)         INTEGER 

Two  test  criterion  values: 


TEST2  (1) 


TEST2 (2) 


The  number  of  links  in  an  observation 
which  have  INDOUS(J)  =  2  yet  should  be 
multi-detector  links,  that  requires  that 
the  observation  be  deleted.   [[20]] 

The  maximum  number  of  "bad"  data  elements 
for  a  link  in  an  observation  that  can  be 
tolerated  before  designating  the  link 
not  usable.   [ [5] ] 


3. 


FRTST(I)         REAL 
Three  fractional  criterion  test  values: 


FRTST(l) 


FRTST(2) 


FRTST(3) 


4 .   NSMLT 


The  maximum  ratio  of  INDG(1,J)  to 
(INDG(1,J)  +  INDG(2,J))  for  a  link  before 
that  link  is  considered  to  be  "predomi- 
nantly" multiple-detector.   [[0.9]] 

The  minimum  fraction  of  observations  for 
a  link  that  must  have  a  0  or  2  quality 
status  (either  multi-detector  or  single- 
detector)  in  order  for  the  link  to  be 
considered  usable  for  analysis  purposes. 
[[0.6]] 

The  minimum  ratio  of  INDG(1,J)  to  (INDG 
(1,J)  +  INDG (2, J))  before  a  link  is 
classified  as  being  single-detector  for 
analysis  purposes.   [[0.9]] 

INTEGER 


The  number  of  data  elements  across  all  links  in  an 
observation  which  have  a  single-detector  status  although 
their  associated  links  are  predominantly  multi-detector  for 
the  file  as  a  whole. 

Technical/Quantitative  Details 

None 

Program  Parameters  and  Tests 

1.   For  a  given  file,  a  link  is  considered  to  be 
predominantly  multi-detector  if: 
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INDG(1,J)         >     FRTST(1) 


INDG(1,J)  +  INDG(2,J) 


2.  For  a  given  file,  an  observation  is  deleted  if  the 
number  of  links  in  the  observation  which  had  INDOUS (J)  =  2, 
despite  the  fact  that  the  link  is  considered  predominantly 
multi-detector,  is  greater  than  TEST2(1). 

3.  LUSE(J)  is  set  =  0  if: 

(a)  INDG(1,J)  +  INDG(.2,J)    .        _______ 

NOBS <   FRTST(2)  ^  Qr 

(b)  INDG(3,J)  +  INDG(5,J)   >   TEST2(2) 

4.  LUSE(J)  is  set  =  2  if: 

INDG(1,J)         , 


INDG(1,J)  +  INDG(2,J) 


FRTST(3) 


5.   If  the  above  two  sets  of  tests  fail,  LUSE(J)  is 
set  =  1. 

Subroutines  Referenced 

None 
Program  Input 

Permanent  Files 
NAME:  PMMCO . UTCS . TEMPXXY 

SOURCE:  Disk,  C0NFIL3  output  file 

DISPOSITION:        SHR 
UNIT  NO. :  FT10F001 

Temporary  Files 

None 

Control/Data  Cards 

DESCRIPTION:        Two  integer  and  three  real  criterion 

values  for  tests  in  the  program. 

SOURCE:  Following  the  FT09F001  DD  *  card  in  the 

JCL 
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COLUMN  DESCRIPTION:            VALUE 

COLUMNS 

TEST2 (1) 
TEST2(2) 
FRTST(l) 
FRTST(2) 
FRTST(3) 

1-10) 

ll-20) 
21-30) 
31-40* 
Al-5o) 

UNIT  NO. :           FT09F001 

Program  Output 

Permanent  Files 

NAME:                PMMCO.UTCS.NOBS(XXY) 

(PDS! 

I 

2110 


3F10.5 


DESCRIPTION: 

LOCATION: 
DISPOSITION: 

I/O  FORMAT: 

UNIT  NO. : 

NAME: 

DESCRIPTION: 


LOCATION: 
DISPOSITION: 
I/O  FORMAT: 

UNIT  NO. : 


The  number  of  observations  in  the  time 
of  day  XX  for  control  pattern  Y. 

Disk 

NEW, KEEP  the  first  time  the  PDS  is  refer- 
enced and  OLD  in  subsequent  runs  when 
new  members  are  being  added 

-  NOBS 

-  FORMAT (110) 

-  1  record 

FT12F001 

PMMCO . UTCS . INDGXXY 

Counts  for  all  links  by  data  quality/ 
usability  level  across  all  observations 
in  the  given  time  of  day  and  control 
pattern  case. 

Disk 

NEW, KEEP 

-  ((INDG(I, J) ,I=1,6,J=1,270) 

-  INTEGER* 2  INDG (6,270) 

-  1  record 

FT13F001 
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NAME: 
DESCRIPTION: 

LOCATION : 
DISPOSITION: 
I/O  FORMAT: 

UNIT  NO. : 

Temporary 


PMMCO . UTCS . LUSEXXY 

The  link  usability  vector  for  the  XXY 
case 

Disk 

NEW, KEEP 

-  (LUSE(J) ,J=1,270) 

-  INTEGER*2  LUSE(270) 

-  1  record 

FT14F001 
Files 


NAME: 
DESCRIPTION: 

LOCATION: 
DISPOSITION: 
I/O  FORMAT: 


UNIT  NO 


&& TEMPI 

The  version  of  the  15-minute  detector 
summary  data  file  as  edited  and  expanded 
by  this  program. 

Disk (scratch) 

NEW, PASS 

-  DATE,TIME,NBAD,NFLAG,NSDET,  (  (INDOUS(J)  , 
MOE(I,J) ,1=1,8) ) ,J=1,270) 

-  INTEGER  DATE (3) ,TIME ,NBAD ,NFLAG,NSDET 
INTEGER*2  INDOUS (270) ,MOE (8 , 270) 

-No.  of  records  -  no.  of  observations 

FT11F001 


Printer,  Error  Messages 


DESCRIPTION: 


ERROR  MESSAGES 


UNIT  NO. : 


All  observations  deleted  by  this  program 
are  printed  out,  as  well  as  the  corres- 
ponding values  of  NSMLT. 

If  an  invalid  value  of  INDOU(J)  is  detected 
at  either  of  two  points  in  the  program, 
an  error  message  to  that  effect  is  printed 
out,  including  the  illegal  value  and  the 
observation  involved.   The  program  ter- 
minates prematurely. 

FT06F001 
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JCL  to  Run  Program 

For  a  run,  all  XXY's  in  file  names  in  the  JCL  must  be 
the  one  appropriate  for  the  time  of  day  and  control  pattern 
involved. 

FIRST  FILE  SORT 

Following  the  execution  of  program  OLOUT  in  Step  3 
(See  the  OVERALL  COMPUTER  PROGRAM  LINKAGE  DESCRIPTION  CHAP- 
TER) ,  the  IBM  SORT/MERGE  utility  package  is  applied  to  sort 
the  &&TEMP1  file  generated  by  OLOUT  and  itself  output  the 
sorted  file  as  the  temporary  data  set  &&TEMP2. 

This  sort  is  of  observations  in  a  file,  so  that  they 
appear  in  ascending  order  by  24-hour  clock  time,  with  all 
observations  having  the  same  clock  time  adjacent  in  the 
sorted  file.   See  the  JCL  for  Step  3,  starting  with  the 
//SORT1  EXEC  PGM=SORT,...  card  for  the  proper  specification 
of  this  sort. 

PROGRAM  PLUGNET 

Summary  Description 

This  program  performs  the  following  tasks: 

1.  For  each  link  and  MOE,  it  calculates  the  mean  value 
of  the  MOE  over  (a)  all  usable  observations  for  the  case 
under  consideration — the  "grand  means"  and  (b)  all  usable 
observations  for  the  case  for  each  15-minute  period  clock 
time  separately — the  "individual  means".   All  the  means  are 
saved  in  files. 

2.  The  program  then  uses  these  means  to  substitute 
for  (or  "plugr')  individual  data  elements  that  have  been 
identified  as  unusable,  but  which  correspond  to  a  link  and 
an  observation  which  are  both  considered  usable  for  analysis 
in  this  case.   The  means  used  to  plug  values  always  corres- 
pond to  the  same  MOE  and  link  as  the  data  element  involved. 
Also,  unless  the  appropriate  individual  mean  could  not  be 
calculated  because  of  lack  of  data,  the  mean  used  also 
corresponds  to  the  same  15-minute  period  as  the  data  element 
being  plugged. 

3.  The  program  finally  calculated  three  "network" 
quantities — actually  MOE ' s  aggregated  over  all  usable  links — 
for  each  observation  in  the  file  separately.   These  network 
quantities  are:   total  volume,  total  vehicle  seconds  of 
delay  (VOLUME* DELAY) ,  and  total  average  number  of  cars 
queued  per  cycle.   The  latter  two  measures  were  aggregated 
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only  over  usable  multi-detector  links  since  the  MOE ' s  in 
these  two  cases  are  not  computed  for  single-detector  links. 
These  values  are  added  to  the  modified  summary  detector 
file  outputed  by  this  program. 

Program  Limits  and  Variable  Dimensions 

The  program  works  with  the  standard  summary  MOE  file 
dimensions  of  eight  MOE ' s  for  270  links.   The  dimensions 
of  all  related  variables  are  based  on  this  standard  con- 
figuration. 

Definitions  of  Important  Variables 

1.  NUS(J)  INTEGER 

The  number  of  data  elements  for  a  given  15-minute 
period  for  link  J  which  was  deemed  usable  (either  single- 
or  multi-detector  levels  of  usefulness) .   The  variable  is 
reused  for  the  different  15-minute  periods. 

2.  NTUS(J)  INTEGER 

The  number  of  data  elements  for  a  given  15-minute 
period  for  link  J  which  was  deemed  usable  and  has  multi- 
detector  levels  of  usefulness  (can  be  used  for  all  seven 
performance  MOE's). 

3.  NGUS(J)  INTEGER 

The  number  of  data  elements  for  the  entire  control 
pattern/time  of  day  case  for  link  J  which  was  deemed  usable 
(either  single-  or  multi-detector  levels) . 

4.  NTGUS(J)         INTEGER 

The  number  of  data  elements  for  the  case  for  link  J 
which  was  deemed  usable  at  the  multi-detector  level. 

5.  TIMLST  INTEGER  CHARACTER 

The  value  of  TIME  for  the  last  observation  read  in  by 
the  program. 

6 .  NETVOL  INTEGER 

The  sum  of  link  volumes  over  all  usable  links  for  a 
given  observation. 
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7 .  NETDEL  INTEGER 

The  sum  of  vehicle  seconds  of  delay  over  all  links 
usable  at  the  multi-detector  level  for  a  given  observation. 

8 .  NETQUE  INTEGER 

The  sum  of  average  number  of  vehicles  queued  by  cycle 
over  all  links  usable  at  the  multi-detector  level  for  a 
given  observation. 

Technical/Quantitative  Details 

There  are  two  different  types  of  MOE ' s .   While  queues 
per  cycle  (M0E4) ,  stops  (M0E5) ,  and  delay  (M0E8)  are  only 
calculated  for  multi-detector  links,  the  other  MOE ' s  are 
calculated  for  all  links  [however,  it  should  be  noted  that 
travel  time  (M0E7)  is  based  in  part  on  delay  and  thus  the 
figure  available  in  the  data  file  for  this  MOE  will  be  mis- 
leading for  single-detector  links] . 

Thus,  the  calculation  of  means  must  be  done  differently 
for  the  two  different  types  of  MOE.   The  number  of  links 
summed  over  to  obtain  the  mean  is  smaller  for  the  first 
three  MOE ' s  than  it  is  for  the  others. 

The  flag  value  of  -1.  is  assigned  to  a  mean  whenever 
the  value  cannot  be  calculated  because  of  a  lack  of  appro- 
priate data.   This  flagging  permits  the  subsequent  plugging 
process  to  choose  the  correct  mean  (individual  or  grand) 
to  use. 

Program  Parameters  and  Tests 

All  individual  data  elements  which  correspond  to  a 
usable  link  and  which  have  INDOUS(J)>  2  are  plugged  with 
appropriate  means. 

Subroutines  Referenced 

None 
Program  Input 

Permanent.  Files 
NAME:  PMMCO . UTCS . LUSEXXY 

SOURCE:  Disk,  see  program  OLOUT  output 

DISPOSITION:        SHR 
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UNIT  NO. : 


FT09F001 


NAME: 
SOURCE: 
DISPOSITION: 
UNIT  NO. : 


PMMCO . UTCS . NOBS ( XXY ) 


Disk,  see  program  OLOUT  output 
SHR 

FT11F001 
Temporary  Files 
NAME:  &&TEMP2 

SOURCE:  Disk,  see  SORT1  utility  output 

DISPOSITION:        OLD, DELETE 
UNIT  NO. :  FT13F001 

Control/Data  Cards 


DESCRIPTION: 


SOURCE : 


COLUMN  DESCRIP- 
TION: 


Title  of  case  being  processed,  including 
control  pattern  number  and  time  of  day 
in  character  form. 

Following  the  FT12F001  DD  *  card  in  the 
JCL 

Starting  in  column  2:   "CONTROL  PATTERN 
Y:  XXXX  where  Y  is  the  control  pattern 
number  and  XXXX  =  "a.m.",  "midday",  or 
"p.m." 


UNIT  NO. :  FT12F001 

Program  Output 

Permanent  Files 
NAME: 


DESCRIPTION: 

LOCATION: 
DISPOSITION: 


PMMCO . UTCS . IBARXXY 

The  individual  means  for  all  MOE's,  links, 
and  15-minute  time  periods. 

Disk 

NEW, KEEP 
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I/O  FORMAT 


UNIT  NO. : 


-  ((MEAN  (I,  J.)  ,  1=1,7)  J=l,  270)) 

-  REAL  IMEAN(7,270) 

-No.  of  records  =  no.  of  different  15- 
minute  clock  times  that  occur  in  the 
detector  summary  input  file. 

FT14F001 


NAME: 
DESCRIPTION: 

LOCATION: 
DISPOSITION: 
I/O  FORMAT: 

UNIT  NO. : 


PMMCO . UTCS . GBARXXY 

The  grand  means  for  all  MOE ' s  and  links 
for  this  case. 

Disk 

NEW, KEEP 

-  ( (GMEAN(I,J) ,1=1,7) , J=l,270) 

-  REAL  GMEAN(7,270) 

-  1  record 


FT15F001 


Temporary  Files 


NAME: 
DESCRIPTION: 

LOCATION : 
DISPOSITION: 
I/O  FORMAT: 


UNIT  NO. : 


&&TEMP3 

Latest  version  of  the  detector  summary 
data  file  for  the  current  case  with  the 
data  plugs  and  network  quantities  added 

Disk 

NEW, PASS 

-  DATA , T IME , NBAD , NFLAG , NSDET , NETVOL , 
NETDEL,NETQUE,  ( (INDOUS(J) , (MOE (I, J) , 
1=1,8) ) ,J=1,270) 

-  INTEGER  DATE (3), TIME  through  NETQUE 
INTEGER*2  INDOUS  (270) , MOE (8 , 270) 

-No.  of  records  =  no.  of  observations 

FT16F001 


Printer,  Error  Messages 
None 
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JCL  to  Run  Program 

To  make  a  run  for  case  XXY ,  you  must  change  all  file 
suffixes  of  the  type  XXY  to  the  appropriate  specific  case 
descriptor,  and  the  control  pattern  number  and  time  of  day 
in  the  title  card  following  the  FT12F001  DD  *  card  must 
be  changed  to  those  appropriate. 


PROGRAM  SCTRGM 

Summary  Description 

This  program  produces  a  scattergram  for  data  in  a  given 
control  pattern/time  of  day  case  file.   The  horizontal  axis 
is  lane  hourly  vehicle  flow  rate  (volume)  in  units  of  eight 
vehicles  per  hour.   The  vertical  axis  is  average  link  delay 
in  units  of  three  seconds.   The  numbers  plotted  represent 
ranges  of  frequency  of  the  occurrence  of  individual  data 
element  (a  given  link  during  a  given  observation)  which  had 
a  volume  and  delay  falling  within  the  ranges  of  the  corres- 
ponding box  along  the  two  axes. 

The  resulting  scattergrams  permit  a  rapid  examination 
of  the  relationship  between  volume  and  delay  for  a  given 
case  and  the  change,  if  any,  in  this  pattern  among  different 
time  of  day/control  pattern  cases.   The  fixed  units  of  the 
scattergram  facilitates  comparison  of  scattergrams  for  dif- 
ferent cases. 

Program  Limits  and  Variable  Dimensions 

As  currently  written,  the  scattergram  can  only  be  of 
volume  versus  delay.   The  maximum  displayable  volume  is 
8x130=1040  vehicles  per  hour  and  the  maximum  displayable 
delay  is  3x60=180  seconds.   All  greater  values  are  displayed 
as  if  they  were  these  maximum  values.   The  program  is  de- 
signed to  work  with  the  standard  configuration  of  eight 
MOE ' s  and  270  links  in  the  summary  file.   Ten  frequency 
ranges  are  permitted  to  be  distinguished.   This  includes 
one  for  the  frequency  of  0 — nonoccurrence. 

Definitions  of  Important  Variables 

1.   MAP (I, J)         INTEGER* 2        (ULTIMATELY) CHARACTER 

The  number  of  individual  data  elements  having  a  delay 
falling  in  the  I ' th  interval  and  a  volume  in  the  (J-l)st 
(or  the  character  representing  the  range  of  frequencies  into 
which  this  number  falls) . 
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2 .   MAPKEY ( I ) 


INTEGER* 2 


The  highest  frequency  for  the  (I+l)st  frequency  range. 
The  first  frequency  range  is  simply  0. 


3 .   KEY ( I ) 


INTEGER* 2 


The  characters  used  to  represent  the  various  frequency 
ranges  on  the  scattergram.   KEY (I)  is  the  character  used 
to  represent  the  I ' th  range. 

Technical/Quantitative  Details 

None 
Program  Parameters  and  Tests 

The  frequency  ranges  are  as  follows: 


Range 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


Frequencies 

0 

1 

2-3 

4-5 

6-10 

11-20 

21-30 

31-50 

51-75 

>  75 


Scattergram  Character 

BLANK 
1 
2 
3 
4 
5 
6 
7 
8 
9 


Subroutines  Referenced 

None 
Program  Input 

Permanent  Files 
NAME: 


SOURCE : 
DISPOSITION: 
UNIT  NO. : 


PMMCO . UTCS . NOBS (XXY) 

Disk,  OLOUT  program  output 

SHR 

FT10F001 
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NAME:  PMMCO . UTCS . LUSEXXY 

SOURCE:  Disk,OLOUT  program  output 

DISPOSITION:        SHR 
UNIT  NO. :  FT11F001 

Temporary  Files 
NAME:  &&TEMP3 

SOURCE:  Disk,  PLUGNET  program  output 

DISPOSITION:        OLD, PASS 
UNIT  NO. :  FT12F001 

Control/Data  Cards 

DESCRIPTION:        Control  pattern/time  of  day  title  card 

SOURCE:  Following  FT09F001  DD  *  card  in  the  JCL 

COLUMN  DESCRIP-     Just  like  that  following  the  FT12F001  DD 
TION:  *  card  in  the  PLUGNET  JCL 

UNIT  NO. :  FT09F001 

Program  Output 

Permanent  Files 

None 

Temporary  Files 

None 

Printer,  Error  Messages 

(See  Figure  20.) 

DESCRIPTION:        The  scattergram  described  above  with  the 

appropriate  case  title  should  cover  one 
full  computer  page.  Asterisks  serve  to 
delineate  axes. 
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CONTROL  PATTERN  It  A.N. 
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Figure    20.       Sample   printout    from   run   of   program   SCTRGM 
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SECOND  FILE  SORT 

This  IBM  utility  sort  is  performed  on  the  latest  ver- 
sion of  the  summary  detector  file  for  the  case  under  consid- 
eration, &&TEMP3.   This  sort  reorders  the  observations  so 
that  they  are  in  ascending  order  by  network  volume,  within 
the  primary  sort  on  clock  time  in  ascending  order.   See 
the  Step  3  JCL  starting  with  the  //S0RT2  EXEC  card  for  the 
exact  parameters  to  be  used. 

The  output  of  this  sort  is  a  new  temporary  summary  file, 
&&TEMP4. 


PROGRAM  BRKFIL 

Summary  Description 

This  program  merely  disaggregates  the  final  version  of 
the  summary  detector  file,  &&TEMP4,  into  nine  smaller  per- 
manent files  containing  the  same  data  when  considered  to- 
gether.  This  disaggregation  is  for  the  purpose  of  making 
subsequent  data  manipulation  more  efficient. 

Separate  files  are  created  for: 

1.  The  observation  level  data; 

2.  The  INDOUS(J)  vectors  for  all  observations; 

3.  Each  of  the  seven  sets  of  performance  MOE * s  for 
all  links  and  observations. 

Program  Limits  and  Variable  Dimensions 

The  program  is  designed  for  the  standard  &&TEMP4  file 
configuration,  with  270  links  and  eight  MOE ' s  (seven  of 
which  are  usable  performance  measures) . 

Definitions  of  Important  Variables 

1.   K  INTEGER 

The  observation  sequence  number . 

K=l,2, . . . ,NOBS 
Technical/Quantitative  Details 

None 
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Program  Parameters  and  Tests 

None 
Subroutines  Referenced 

None 
Program  Input 

Permanent  Files 


NAME: 
SOURCE : 
DISPOSITION: 
UNIT  NO. : 


PMMCO . UTCS . NOBS ( XXY) 

Disk,  OLOUT  program  output 

SHR 

FT09F001 


Temporary  Files 


NAME: 
DESCRIPTION: 

SOURCE : 
DISPOSITION: 

UNIT  NO. : 


&&TEMP4 

Latest  version  of  the  summary  MOE  detec- 
tor data  for  the  case  under  consideration 

Disk,  S0RT2  output 

SHR 

FT10F001 


Control/Data  Cards 

None 
Program  Output 

Permanent  Files 
NAME: 


DESCRIPTION: 

LOCATION: 
DISPOSITION: 
I/O  FORMAT: 


PMMCO . UTCS . HEADXXY 

The  observation  level  data  from  the 
summary  file. 

Disk 

NEW, KEEP 

-  K , DATE , TIME , NBAD , NFLAG , NSDET , NETVOL , 
NETDEL,NETQUE 

-  INTEGER  K,  DATE (3),  TIME  through  NETQUE 
-No.  of  records  =  no.  of  observations 
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UNIT  NO. ; 


FT11F001 


NAME: 
DESCRIPTION 

LOCATION: 
DISPOSITION 
I/O  FORMAT: 


UNIT  NO. : 


PMMCO . UTCS . INDSXXY 

The  values  of  INDOUS(J)  for  all  J  for 
each  observation  in  the  case. 

Disk 

NEW , KEEP 

-  K, (INDOUS(J) ,J=1,270) 

-  INTEGER  K 

INTEGER* 2  INDOUS(270) 
-No.  of  records  =  no.  of  observations 

FT12F001 


NAME: 
DESCRIPTION 


PMMCO. UTCS. MOEIXXY 


-L  ^.fJjfotsmf 


LOCATION: 
DISPOSITION 
I/O  FORMAT: 


UNIT  NO. : 


All  270  link  values  of  MOEI  for  all  ob- 
servations in  the  case.  (Each  MOE  assigned 
to  a  different  file — -see  unit  numbers 
below. ) 

Disk 

NEW , KEEP 

-  K, (MOE(I,J) ,J=1,270) 

-  INTEGER  K 
INTEGER* 2  MOE (8 ,270) 

-No.  of  records  =  No.  of  observations 

FT13F001,  FT14F001, . . .FT19F001,  respec- 
tively 


Temporary  Files 

None 

Printer,  Error  Messages 

None 

JCL  to  Run  Program 

To  make  a  run,  make  sure  that  all  XXY-type  file 
suffixes  are  correct. 
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PROGRAM  ENDPRNT 


Summary  Description 

This  program  produces  a  printed  data  summary  and  de- 
tailed data  sampling  of  the  final  version  of  the  data  files 
The  report  produced  includes,  for  the  time  of  day/control 
pattern  case  involved : 

1.  the  link  usability  vector,  LUSE(J); 

2.  a  listing,  in  sorted  order,  of  all  observations 
and  the  observation  level  values  associated  with 
them:   number  of  bad,  flagged,  and  usable  single- 
detector  link  values;  network  volume;  network 
vehicle  minutes  of  delay;  and  network  average 
queues  per  cycle. 

3.  a  listing  of  all  link  values  for  the  MOE's,  (a) 
volume  and  (b)  delay  for  all  observations. 

Program  Limits  and  Variable  Dimensions 

The  program  is  designed  to  report  on  the  standard  con- 
figuration of  files  with  270  links  and  seven  performance 
MOE's  as  defined  by  the  Step  3  programs  and  JCL. 

Definitions  of  Important  Variables 

No  new  variables  of  importance  introduced  in  this  pro- 
gram. 

Technical/Quantitative  Details 

None 
Program  Parameters  and  Tests 

None 
Subroutines  Referenced 

None 
Program  Input 

Permanent  Files 
NAME:  PMMCO.UTCS.NOBS(XXY) 
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SOURCE : 
DISPOSITION 
UNIT  NO. : 

NAME: 
SOURCE : 
DISPOSITION: 
UNIT  NO. : 


Disk,  OLOUT  program  output 

SHR 

FT09F001 

PMMCO . UTCS . LUSEXXY 

Disk,  OLOUT  program  output 

SHR 

FT10F001 


NAME: 
SOURCE : 
DISPOSITION: 
UNIT  NO. : 

NAME: 
SOURCE : 
DISPOSITION: 
UNIT  NOs. : 


PMMCO . UTCS . HEADXXY 

Disk,  BRKFIL  program  output 

SHR 

FT11F001 

PMMCO . UTCS . MOEIXXY  1=2,8 

Disk,  BRKFIL  program  output 

SHR 

FT12F001  and  FT13F001,  respectively 


Temporary  Files 
None 

Control/Data  Cards 
None 
Program  Output 

Permanent  Files 

None 

Temporary  Files 

None 
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Printer,  Error  Messages 

(See  Figure  21.) 

DESCRIPTION:       First,  the  LUSE(J)  vector  is  printed  out, 

72  single-digit  unspaced  values  per  line 
for  a  total  of  270  values.   Next,  the 
observations  are  listed  in  sorted  order, 
together  with  the  observation  level  data 
appearing  under  column  headings  identify- 
ing each  value. 

Finally,  for  each  observation,  all  link 
values  for  MOE2  (volume)  and  then  MOE8 
(delay)  are  printed  out  in  two  closely 
spaced  blocks  following  a  marginal  indi- 
cation of  the  observation  involved.   Each 
block  contains  270  values,  one  for  each 
link,  including  good,  plugged,  and  even 
bad  unplugged  values. 

JCL  to  Run  Program 

To  run  this  program,  make  sure  that  the  XXY  suffixes 
to  all  file  names  in  the  JCL  are  correct  for  the  case  under 
consideration . 


PROGRAM  NETCON 

Summary  Description 

Starting  with  this  program,  all  runs  will  be  made  with 
respect  to  a  comparison  of  two  cases  and  will  thus  refer 
to  files  from  two  different  control  patterns.   NETCON  is 
the  first  in  a  chain  of  steps  that  paves  the  way  for  a 
meaningful  and  consistent  statistical  comparison  of  two 
cases  for  which  the  chain  was  run.   The  actual  statistical 
comparison  will  occur  in  a  subsequent  step,  that  of  the 
post-processor . 

Although  previous  programs  have  defined  for  each  case 
separately  a  link  usability  vector  and  have  calculated  net- 
work volumes  based  on  these  vectors,  a  statistical  compari- 
son of  two  cases  requires  a  single  common  link  usability 
vector  and  a  "matching"  of  observations  based  on  two  con- 
sistent sets  of  network  volumes  (network  being  defined  as 
the  same  set  of  usable  links  in  both  cases) .   NETCON  provides 
a  single  link  usability  vector  and  two  consistent  sets  of 
network  volumes  for  the  two  control  pattern/time  of  day 
cases  for  which  the  program  is  run. 
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Figure    21.       Sample   printout    from   run   of   program   BRKFIL 


78 


The  single  link  usability  vector  is  defined  as  the 
most  restrictive  value  of  the  two  individual  link  usability 
vector  elements,  for  each  link  independently.   Optionally, 
a  third,  restraining  link  usability  vector  may  be  read  in 
exogenously  for  the  purpose  of  "manually"  deleting  links 
from  later  analysis  because  of  external  knowledge  on  detec- 
tor reliability  or  for  any  other  purpose. 

Network  volumes  for  both  cases  over  all  observations 
are  then  recalculated  based  on  the  single  "common"  link 
usability  vector  just  derived.   These  recalculated  network 
volume  values  will  now  be  strictly  comparable  since  they 
will  represent  volume  aggregated  over  the  same  links. 

Program  Limits  and  Variable  Dimensions 

This  program  was  intended  to  apply  to  the  standard  27  0 
link  case  with  the  volume  MOE  file  in  the  form  as  output  by 
program  BRKFIL. 

Definitions  of  Important  Variables 

1.  LUSEM(J)         INTEGER* 2 

=  0  if  link  J  is  to  be  considered  unusable  for  this 
two-case  comparison,  independent  of  the  two  individual  LUSE(J) 
values . 

=  1  if  the  usability  of  link  J  is  to  be  determined  by 
the  two  individual  LUSE(J)  values  only. 

2 .  ILUSEM  INTEGER 

=  1  if   an  exogenous  LUSEM(J)  vector  (with  at  least 
one  "0"  value)  is  to  be  read  in. 

3.  The  appearance  of  "1"  and  "2"  following  variables  such 
as  LUSE  and  NOBS  is  merely  to  distinguish  between 
values  for  the  first  and  second  cases  read  in  for  the 
run. 

Technical/Quantitative  Details 

None 

Program  Parameters  and  Tests 

The  exogenous  LUSEM(J)  vector  is  read  in  if  the  value 
of  ILUSEM  read  in  is  1. 
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Subroutines  Referenced 


None 
Program  Input 

Permanent  Files 
NAME: 


SOURCE : 
DISPOSITION: 
UNIT  NO. 's: 

NAME: 

SOURCE : 
DISPOSITION: 
UNIT  NO. 's: 

NAME: 

SOURCE: 
DISPOSITION: 
UNIT  NO. : 


PMMCO . UTCS . NOBS (XXY) , 
PMMCO . UTCS . NOBS (XXZ) 

Disk,  OLOUT  program  output 

SHR 

FT10F001  and  FT11F001,  respectively 

PMMCO . UTCS . LUSEXXY / 
PMMCO . UTCS . LUSEXXZ 

Disk,  OLOUT  program  output 

SHR 

FT12F001  and  FT13F001,  respectively 

PMMCO . UTCS . HEADXXY   with 

PMMCO . UTCS . HEADXXZ   concatenated  to  it 

Disk,  BRKFIL  program  output 

SHR 

FT16F001 


NAME: 

SOURCE : 
DISPOSITION 
UNIT  NO. : 


PMMCO.UTCS.MOE2XXY    with 
PMMCO.UTCS.MOE2XXZ    concatenated  to  it 

Disk,  BRKFIL  program  output 

SHR 

FT17F001 


Temporary  Files 
None 
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Control/Data  Cards 
DESCRIPTION: 


SOURCE : 
NUMBER : 
CONTENT : 
FORMAT: 
DESCRIPTION: 
SOURCE : 
NUMBER : 

CONTENT : 


Switch  to  indicate  specification  of 
exogenous  link  usability  vector. 

Following  the  FT05F001  DD  *  Card. 

One  card. 

ILUSEM 

(110) 

Optional  exogenous  link  usability  vector 

Concatenated  to  the  above  card. 

0;  if  ILUSEM  =  0 
4;  if  ILUSEM  =  1 

LUSEM  (J) : 
Card  1:  J=l,  7  2 
Card  2:  J=73,  144 
Card  3:  J=145,  216 
Card  4:  J=217,  270 


Note:   All  270  values  must  be  supplied. 
FORMAT:  (7211) 

Program  Output 

Permanent  Files 
NAME: 


DESCRIPTION: 

LOCATION: 
DISPOSITION: 
I/O  FORMAT: 

UNIT  NO. : 


PMMCO . UTCS . LUSGXXYZ 

The  single  link  usability  vector  to  be 
used  in  comparisons  of  case  XXY  with 
case  XXZ 

Disk 

NEW, KEEP 

-  (LUSEG(J) ,  J=l,270) 

-  INTEGER*2  LUSEG(270) 

-  1  record 

FT15F001 
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NAME:  PMMCO . UTCS . VOLXXYZ , 

PMMCO . UTCS . VQLXXZY 

DESCRIPTION:        The  re-calculated  consistent  network 

volume  files  for  cases  XXY  and  XXZ , 
respectively  for  comparison  purposes. 

LOCATION:  Disk 

DISPOSITION:        NEW, KEEP 

I/O  FORMAT:  -  K,DATE,  TIME,NETVOL 

-  INTEGER  K,  DATE (3) , TIME ,NETVOL 

-  No.  of  records  =  No.  of  observations 

UNIT  NO.'s:        FT18F001  and  FT19F001,  respectively 

Temporary  Files 

None 

Printer,  Error  Messages 

(See  Figure  22.) 

DESCRIPTION:       First,  the  single-link  usability  vector 

is  printed  out,  100  elements  to  a  line 
for  270  link  values.   This  is  followed 
by  a  listing  in  tabular  form  of  all 
observations  for  the  first  of  the  two 
cases  of  the  comparison  inputed.   Along 
with  each  observation's  date  and  time 
is  the  recalculated  network  volume.   This 
tabular  listing  is  followed  by  a  similar 
one  for  the  second  case  of  the  comparson. 

JCL  to  Run  Program 

To  make  a  run  of  this  program,  the  JCL: 

1.  Must  have  the  correct  value  of  ILUSEM  on  the  con- 
trol card  following  the  FT05F001  DD  *  card. 

2.  If  ILUSEM  =  1,  the  cards  specifying  the  LUSEM(J) 
vector  must  be  correctly  inserted  following  the  above  card. 

3.  All  XXY,  XXZ,  XXYZ,  and  XXZY  suffixes  of  the  file 
names  must  be  correct  for  the  given  run. 
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DATE     TIMt   NETVQL 


1 

MAR 

14 

74 

u715 

48222 

2 

MAR 

15 

74 

0715 

46620 

3 

MAR 

13 

74 

0715 

48937 

4 

MAR 

06 

74 

0715 

49324 

b 

MAR 

05 

74 

0715  ' 

4  9489 

6 

MAR 

07 

74 

0715 

51434 

7 

MAK 

07 

74 

0730 

57211 

8 

MAR 

13 

74 

0  73  0 

53249 

9 

MAR 

05 

74 

0730 

5  3424 

JLC 

MAR 

15 

74 

0730 

63o92 

111 

MAR 

14 

74 

0730 

o4617 

|12 

MAR 

06 

74 

0730 

65031 

13 

MAR 

05 

74 

0  745 

b7538 

14 

MAR 

07 

74 

0745 

6  9040 

15 

MAR 

1<* 

74 

0745 

7C140 

16 

MAR 

06 

74 

0745 

70312 

17 

MAR 

15 

74 

0745 

703^4 

18 

MAR 

12 

74 

0745 

71438 

19 

MAR 

13 

74 

0745 

75112 

20 

MAR 

07 

74 

0800 

77068 

2  1 

MAR 

14 

74 

0600 

77964 

22 

MAR 

13 

74 

0600 

7«544 

2  3 

MAK 

06 

74 

0800 

79480 

24 

MAR 

12 

74 

0300 

79478 

25 

MAR 

15 

74 

0800 

79624 

26 

MAR 

05 

74 

0800 

3  613  2 

27 

MAR 

13 

74 

0815 

82256 

28 

MAR 

06 

74 

0815 

33000 

29 

MAP- 

05 

74 

0615 

32564 

30 

MAR 

15 

74 

0615 

33o46 

31 

MAK 

12 

74 

0315 

83969 

32 

MAR 

14 

74 

0815 

85418 

33 

MAR 

07 

74 

0815 

91^20 

34 

MAR 

12 

74 

0830 

84676 

35 

MAR 

05 

74 

0330 

85249 

3  6 

MAR 

13 

74 

0830 

85970 

37 

MAR 

07 

74 

08  3  0 

3o824 

38 

MAR 

06 

74 

0830 

92830 

39 

MAR 

14 

74 

0830 

94  718 

.40 

MAR 

15 

74 

0830 

946  02 

41 

MAR 

05 

74 

0845 

844  V* 

42 

MAR 

14 

74 

0845 

8o:>75 

43 

MAR 

07 

74 

0845 

86o2o 

44 

MAR 

06 

74 

0845 

86888 

45 

MAR 

15 

74 

0  84  5 

66189 

46 

MAR 

12 

74 

0845 

92558 

Figure  22.   Sample  printing  from  run  of  program  NETCON 
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THIRD  AND  FOURTH  FILE  SORTS 

Following  the  program  NETCON  in  the  next  to  last  re- 
quired sequential  job  string  are  two  IBM  utility  sort  steps. 
They  are  to  sort  the  PMMCO.UTCS.  VOLXXYZ  and  PMMCO.UTCS. 
VOLXXZY  files,  respectively,  created  by  NETCON  in  the  pre- 
vious step.   The  sorted  files  are  stored  in  the  files  named 
PMMCO . UTCS . SRT3XXYZ  and  PMMCO.UTCS . SRT3XXZY,  respectively. 

The  sort  puts  the  observations  in  ascending  order 
according  to  the  recalculated,  consistent  network  volumes, 
within  the  primary  sort  on  clock  time.   The  amount  of 
position  changes  from  the  previously-existing  sort  should 
be  minimal,  since  the  previous  sorts  on  inconsistent  network 
volumes  should  not  have  resulted  in  greatly  different  order- 
ings. 

See  the  JCL  starting  with  the  //S0RT3  EXEC  and  //S0RT4 
EXEC  cards  in  Step  4  for  the  detailed  sort  format  to  be  used 


PROGRAM  PREPOST 

Summary  Description 

The  final  program  in  the  Step  5  chain  is  PREPOST.   Now 
that  link  -integrity  has  been  assured  for  the  statistical 
comparison  through  the  definition  of  a  single  common  link 
usability  vector,  it  remains  only  to  guarantee  observation 
integrity  and  assure  that  the  observations  in  the  two  cases 
to  be  compared  reflect  roughly  similar  travel  demand  condi- 
tions.  Both  of  these  needs,  as  well  as  the  requirements 
of  equal  statistical  samples  sizes  for  the  two  cases,  are 
satisfied  by  an  observation  "matching"  process  performed 
by  this  program. 

The  "matching"  process  is  briefly  as  follows: 

1.  One  starts  with  one  set  of  observations  for  each 
of  the  two  cases  to  be  compared.   They  are  in  ascending 
order  by  24-hour  clock  time  and  within  a  given  clock  time 
they  are  ordered  by  network  volume.   The  number  of  obser- 
vations for  the  two  cases  is  generally  different. 

2.  All  "matching"  of  observations  between  these  groups 
occurs  only  within  the  same  clock  time.   No  matches  of  ob- 
servations with  different  clock  times  are  permitted. 

3.  For  each  clock  time,  we  compare  the  volume  ranges 
for  the  two  cases.   Extreme  observations  for  any  clock  time, 
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as  measured  by  its  network  volume,  are  "discarded"  if  they 
are  further  from  center  than  their  corresponding  extreme  by 
a  certain  criterion  value.   This  range  truncation  procedure 
provides  protection  against  the  possibility  of  comparing 
two  sets  of  observations  which  differ  greatly  in  network 
volume  values  (as  a  surrogate  for  travel  demand  conditions) . 

4.  Following  the  truncation  procedure,  it  is  neces- 
sary to  insure  that  the  number  of  observations  as  between 
the  two  cases  is  equal  for  each  clock  time  separately, 
which  will  make  the  remaining  samples  for  each  clock  time 
equal  as  between  the  two  cases . 

This  is  done  by  removing  the  :'n"  observations  in  the 
larger  of  the  two  (if  they  are  not  already  of  equal  size) 
which  have  network  volumes  closest  to  the  mean  network 
volume  for  its  respective  clock  time  sample  of  observations 
following  truncation.   This  procedure  attempts  to  minimize 
the  impact  of  equalizing  sample  sizes  on  the  original  trun- 
cated samples. 

In  cases  where  one  of  the  two  cases  has  only  one  ob- 
servation remaining  after  truncation,  the  procedure  is  then, 
instead,  to  match  it  with  the  observation  in  the  other  case 
having  the  closest  network  volume  to  its  own.   All  other 
observations  are  then  discarded. 

5.  Since  the  original  files  were  sorted  by  network 
volume  within  clock  time,  it  is  necessary  only  to  specify 
which  of  the  original  observations  should  not  be  used  to 
specify  the  "match".   Each  remaining  observation  is  simply 
matched  with  the  corresponding  remaining  observations  in 
the  other  case  in  succession. 

6.  Although  this  procedure  could  be  considered  as  pro- 
ducing an  actual  observation-to-observation  match,  this  is 
not  its  objective.   The  "matching"  procedure  is  performed 

to  obtain  two  sample  sets  of  equal  sample  size  and  repre- 
senting roughly  comparable  travel  demand  conditions .   Since 
the  primary  statistical  tests  to  be  used  will  essentially 
pool  all  observations  for  a  given  control  pattern  and  time 
of  day  for  the  analysis,  the  one-to-one  "matching"  of 
observations  is  not  used  in  these  (link-by-link)  tests. 

The  primary  output  of  this  program  is  thus  two  vectors 
specifying  which  observations  are  to  be  used  and  which  not 
for  statistical  purposes  when  these  two  cases  are  being 
compared. 
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Program  Limits  and  Variable  Dimensions 

The  variables  are  dimensioned  so  as  to  permit  100  ob- 
servations for  each  of  the  two  cases.   However,  not  more 
than  15  distinct  clock  times  (present  in  either  of  the  two 
samples)  will  be  permitted  by  the  present  dimensioning; 
also,  no  more  than  15  observations  in  any  given  clock  time 
group  for  a  case  will  be  allowed.   Since  this  program  con- 
cerns itself  only  with  observations,  the  number  of  links  or 
subnetworks  involved  is  irrelevant. 

Definitions  of  Important  Variables 

1.  K1(I),  K2(I)    INTEGER 

The  ranking  of  the  I ' th  observation  of  the  final  re- 
sorting in  the  files  created  by  program  BRKFIL  and  all 
following  programs  up  until  the  last  two  sorts  in  Step  4. 
These  permit  accurate  manipulation  of  these  files  in  sub- 
sequent steps  without  the  added  steps  involved  in  physically 
resorting  them.   The  Kl  and  K2  refer  to  the  first  and  second 
cases  to  be  compared,  respectively. 

2.  The  DATE1,  TIME1,  NTVOLl ,  etc.,  variables  are  merely 
observation-subscripted  versions  of  DATE,  TIME,  and  NTVOL. 
DATD1,  TIMD1,  NVOL1 ,  etc.,  are  versions  of  DATE1,  TIME1, 
NTCOL1,  ete.  used  to  hold  sequentially  only  values  for 
observations  that  will  actually  be  used  in  the  statistical 
comparisons. 

3.  NITl(I),  NIT2(I)   INTEGER 

The  number  of  observations  in  the  I ' th  (15  minute)  clock 
time  group  for  the  first  and  second  cases,  respectively. 

4.  KNTl(L),  KNT2(L)   INTEGER 

The  counterparts  of  K1(I)  and  K2(I),  respectively, 
storing  successively  the  ranks  in  the  pre-f inal-sort  files 
of  only  these  observations  that  will  be  used  in  the  statis- 
tical comparisons. 

5.  IIS,  I2S    INTEGER 

The  observation  number  of  the  first  observation  in  the 
clock  time  group  presently  under  consideration  for  cases  1 
and  2,  respectively. 

6 .  IT    INTEGER 

The  clock  time  group  presently  under  consideration. 
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7.   IEND1,  IEND2   INTEGER 

These  indices  are  set  equal  to  one  to  indicate  that  the 
last  of  all  observations  for  cases  one  and  two,  respectively, 
has  been  reached  in  the  matching  process. 

Technical/Quantitative  Details 

None  in  the  body  of  the  main  program. 
Program  Parameters  and  Tests 

None  in  the  body  of  the  main  program. 

Subroutines  Referenced 

The  main  program  calls  two  subroutines  directly: 
READIT  and  MATCH.   Subroutine  MATCH  in  turn  calls  subroutine 
SORTR,  which,  itself  calls  subroutine  SWITCH.   Briefly,  their 
functions  are  as  follows: 

Subroutine  READIT 

This  subroutine  is  used  to  advance  the  main  program 
through  to  the  next  clock  time  group  for  which  there  are 
observations  for  both  cases.   The  number  of  observations  in 
this  group  for  both  cases  is  stored,  all  observations  in 
any  unpaired  groups  that  were  passed  over  are  deleted, 
appropriate  counters  are  updated,  and  if  the  end  of  the 
observations  in  either  or  both  cases  is  encountered  in  this 
pass,  this  fact  is  denoted.   Basically,  the  subroutine  pre- 
pares for  the  matching  procedure  for  the  next  paired  clock 
time  group,  which  occurs  in  subroutine  MATCH. 

Subroutine  MATCH 

This  subroutine  carries  out  both  the  truncation  and 
sample  size  equalization  steps  of  the  "matching"  procedure 
for  the  clock  time  period  under  consideration.   Both  of 
these  steps  are  translated  into  the  two  vectors  of  observa- 
tion usability  which  summarize  the  matching  process.   Al- 
though the  two  cases  generally  have  different  number  of 
observations,  when  the  matching  process  is  complete,  the 
two  vectors  have  the  same  number  of  "l"s  by  definition. 

The  major  variables  of  interest  introduced  by  this 
subroutine  are: 

1.   IND(I)  INTEGER 
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A  dummy  index  used  to  sort  the  differences  between  in- 
dividual values  and  the  mean  into  ascending  order. 

2 .  DEL ( I )  REAL 

The  absolute  value  of  the  difference  between  the  net- 
work volume  of  the  I ' th  observation  in  a  clock  time  group 
and  that  of  the  mean  of  the  group. 

3.  NITA,  NITB      INTEGER 

Unsubscripted  substitutes  for  NITl(IT)  and  NIT2(IT), 
respectively,  within  the  subroutines. 

4 .  ICHG  INTEGER 

A  flag  that  is  assigned  the  value  of  1  if  any  trunca- 
tions were  made  in  the  last  pass.  If  ICHG=0  after  a  pass, 
no  further  truncation  passes  are  necessary. 

5.  VBAR1,  VBAR2    REAL 

The  mean  network  volume  of  all  observations  in  a  clock 
time  group  after  truncation  for  cases  1  and  2,  respectively. 

6 .  ICRIT  INTEGER 

The  criterion  value  for  the  truncation  procedure.   This 
is  the  maximum  amount  an  extreme  value  of  one  case  can  be 
further  from  the  center  than  its  counterpart  in  the  other 
case.   Its  value  is  determined  as  follows: 

(a)  The  smaller  of  the  two  LOWEST  network  volumes 
for  a  clock  time  group  is  subtracted  from  the  larger  of  the 
two  HIGHEST  network  volumes.   This  gives  the  combined 
simultaneous  volume  range  for  that  clock  time.   This,  of 
course,  is  done  prior  to  truncation. 

(b)  This  volume  range  is  then  divided  by  the  larger 
of  the  number  of  observations  in  the  two  groups,  minus  one. 
The  result  is  the  value  of  ICRIT  for  the  corresponding 
clock  time. 

7 .  NDEL  INTEGER 

Is  the  number  of  observations  that  must  be  "deleted" 
from  the  larger  of  the  two  clock  time  groups  so  as  to 
achieve  an  equal  number  of  remaining  observations  for  both. 
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8 .  KEEP  INTEGER 

This  is  the  observation  that  is  to  be  matched  with  the 
one  observation  in  the  other  group  for  that  situation  in 
which  one  of  the  cases  has  only  one  remaining  observation 
in  the  clock  time  group. 

9.  ITEST  INTEGER 

The  absolute  value  of  the  difference  between  the  net- 
work volume  of  the  observation  for  the  case  with  one  remain- 
ing observation  and  the  observation  for  the  other  case  in 
that  clock  time  group  with  the  closest  network  volume. 

In  the  truncation  process,  observations  are  stripped 
off  either  end  until  the  maximum  extreme  divergence  crite- 
rion is  no  longer  violated. 

In  the  sample  size  equalization  procedure  where  the 
remaining  sample  for  the  clock  time  is  greater  than  one 
for  both  cases,  the  larger  sample  is  decreased  as  follows: 

(a)  The  mean  of  the  volumes  for  the  remaining  obser- 
vations for  the  larger  sample  case  is  computed. 

(b)  The  absolute  values  of  the  difference  between 
this  mean  and  the  individual  remaining  volumes 
are  sorted  in  ascending  order. 

(c)  The  observations  corresponding  to  the  NDEL  first 

(smallest)  absolute  differences  in  this  sort  are 
"deleted"  and  thus  the  samples  sizes  are  made 
equal . 

The  value  NINE  =  '9999'  is  assigned  to  the  TIME  varia- 
ble for  the  observation  following  the  last  (an  imaginary 
value  for  testing  purposes  only)  if  the  last  observation  is 
reached  for  a  case  but  the  clock  time  for  this  last  obser- 
vation is  still  less  than  the  last  clock  time  scanned  for 
the  other  case.   Testing  for  this  flag  permits  the  subroutine 
to  deal  with  all  possible  occurrences  of  unpaired  clock  time 
groups. 

Subroutine  SORTR 

This  subroutine  is  used  to  sort  the  elements  of  the 
input  vector  in  the  argument  list  into  ascending  order  and 
return  the  original  positions  of  these  elements,  in  sorted 
order  in  the  vector  IND(I).   The  vector  V  is  itself  left 
unchanged,  since  the  actual  sorting  manipulations  are  per- 
formed on  the  dummy  vector,  DV. 
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The  sort  is  achieved  through  a  simple  interchanging 
of  adjacent  elements  that  are  out  of  order  within  a  double 
DO  loop. 

Subroutine  SWITCH 

This  subroutine  simply  interchanges  two  vector  elements 
and  their  corresponding  position  indices.   It  is  the  mani- 
pulative basis  of  the  sort  performed  in  subroutine  SORTR. 

All  four  subroutines  discussed  above  are  physically 
appended  to  the  end  of  the  main  program,  PREPOST,  in  the 
source  file  which  contains  it. 

Program  Input 

Permanent  Files 

NAME :  PMMCO . UTCS . NOBS (XXY) , 

PMMCO . UTCS . NOBS (XXZ ) 

SOURCE:  Disk,  OLOUT  program  output 

DISPOSITION:        SHR 

UNIT  NO.'s:         FT10F001  and  FT11F001,  respectively 

NAME:  PMMCO . UTCS . SRT3XXYZ , 

PMMCO . UTCS . SRT3XXZY 

SOURCE:  Disk,  third  and  fourth  IBM  sort  output 

files  (S0RT3  and  S0RT4  output) 

DISPOSITION:        SHR 

UNIT  NO.'s:        FT15F001  and  FT15F001,  respectively 

Temporary  Files 

None 

Control/Data  Cards 

None 
Program  Output 

Permanent  Files 
NAME:  PMMCO . UTCS . OBUSXXYZ 
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DESCRIPTION: 

LOCATION : 
DISPOSITION: 
I/O  FORMAT: 


UNIT  NO. : 


The  observation  usage  vectors  for  cases 
XXY  and  XXZ ,  when  compared. 

Disk 

NEW, KEEP 

-  (OBUSEl(Jl) ,J1  =  1,N0BS1), 
(OBUSE2(J2) ,J2  =  l,NOBS2) 

-  INTEGER*2  OBUSEl(lOO),  OBUSE2(100) 

-  1  record 

FT18F001 


Temporary  Files 

None 

Printer,  Error  Messages 

(See  Figure  23.) 


DESCRIPTION: 


First,  the  two  observation  usage  vectors, 
0BUSE1  and  OBUSE2,  are  printed  out  in 
that  order  under  the  title  "OBUSE:". 
This  is  followed  by  a  tabular  represen- 
tation of  the  final  observation  match  in 
a  mirror  image  format  centering  on  the 
network  volumes  that  served  as  the  basis 
of  the  matching  process  within  each  clock 
time.   Each  line  of  the  table  gives  the 
original  file  position,  date,  time,  and 
network  volume  of  two  observations  (one 
from  each  case)  "matched"  together.   The 
lines  are  in  order  of  increasing  network 
volume  within  the  overall  ordering  ac- 
cording to  clock  time.   The  observations 
that  were  thrown  out  by  the  matching 
process  do  not  appear  in  this  table. 


PROGRAM  CONDNS 

Summary  Description 

This  program  constitutes  an  optional  step  which  is 
executed  when  statistical  analysis  over  subnetworks  or 
other  aggregates  of  links  is  desired,  in  addition  to  the 
basic  analysis  by  individual  link.   The  program  creates  for 
each  case  for  which  it  is  run  a  set  of  four  MOE  subnetwork 
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05 

74 

"0615 

96236 

9a772 

0815 

APR 

03 

74 

29 

30 

MAR 

15 

74 

Of;  I  5 

*7*73 

^7104  . 

0815 

APH 

05 

74 

30 

32 

MAR 

14 

74 

0015 

9d742 

10U43 

0315 

APR 

04 

7<t 

31 

33 

MAR 

07 

74 

..0S15__ 

1033ri4_ 

106620 

0815 

MAP 

27 

74 

32 

34 

MAk 

12 

74 

uo30 

\*860<t 

973  72  " 

0630 

APK 

03 

74 

35 

35 

MAR 

05 

74 

0330 

96925 

10068o 

0630 

MAR 

27 

74 

3o 

36 

MAR 

13 

74 

0630 

100070 

102052 

083  0 

MAR 

29 

74 

37 

38 

MAR 

06 

74 

063  0 

10  7392 

103  3  7^ 

0630 

A  P  P. 

02 

74 

36 

39 

MAR 

14 

74 

083  0 

109242 

106  760 

0630 

MAk" 

26 

74 

3  9 

40 

MAR 

15 

74 

0630 

1096  06. 

.....;091  12... 

0330_ 

APR. 

05 

74 

_4_0 

41 

MAK 

05 

74 

0645 

9o024 

9o9  7o 

08t5~ 

APR* 

04 

74 

42 

42 

MAk 

14 

74 

.0645 

.100021. 

991  64 

0845 

*IAR 

28 

74 

_43 

43 

MAR 

07 

74 

0645 

100496 

100029 

0643 

APR 

0  3 

74 

46 

44 

MAR 

06 

74 

_  0845 

lOlOOt 

100432 

0645 

.  I'.AR. 

27. 

74._ 

._45 

45 

MAR 

15 

74 

0845 

102105 

100803 

0643 

APR 

05 

74 

4  7 

49 

MA<\ 

06 

74 

__0900_ 

.  9635.6 

96  74  3. 

09  00_ 

>RP_ 

04_ 

74 

49 

"so 

APR 

08 

74 

0900 

96682 

96044" 

o'yob" 

APR 

05 

74 

51 

51 

MAR 

12 

74 

0900 

9o790  . 

9692  J  . 

.0900  . 

.MAR 

to . 

74 

50 

52 

MAR 

07 

74 

0900 

9  73  60 

99o44 

0900 

MAR 

29 

74 

52 

55 

MAR 

13 

74 

0900 

99473 

1^0460 

OSOO. 

MAR 

27 

74 

53 

56 

MAR 

05 

74 

0900 

10^092 

104096 

0900 

APR 

03 

lh 

34 

57 

MAR 

06 

7«t 

_0915  _ 

69596. 

8fcl80 

0915 

APR 

02 

J4_ 

55 

58 

"mar 

05 

7t 

0915 

S  06  1 8 

<U724 

0915 

APR 

03 

74 

56 

59 

MAK 

12 

74 

0915 

9l>06 

9h012 

0915 

AP« 

04 

74 

_5.I 

60. 

APR 

06 

74 

0915 

92297 

9  54  72 

0915 

APR 

05 

74 

58 

62 

MAR 

13 

74 

0915 

93  6b5 

St0  52 

0915 

*  n\> 

26 

74 

5-J 

63 

MAR 

14 

74 

0915 

9  J9t>9 

100o64 

0913 

MAR 

29 

74 

60 

64 

MAR 

07 

74 

0915 

100312 

IU1436 

0<*15 

MAP 

27 

74 

Cl 

Figure  23.   Sample  printout  from  run  of  program  PREPOST 
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level  data  files,  analogous  to  the  seven  MOE  individual  link 
level  data  files  created  by  program  BRKFIL. 

The  four  "MOE's"  for  the  subnetwork  level  files  are 
four  MOE's  or  arithmetic  combinations  of  MOE's  which  were 
deemed  to  be  meaningfully  aggregatable  over  links.   These 
are:   average  number  of  cars  queued  per  cycle,  number  of 
stops,  vehicle  minutes  of  travel  time,  and  vehicle  minutes 
of  delay. 

Based  on  a  set  of  control  cards,  the  program  constructs 
a  number  of  subnetworks  or  link  aggregations  defined  as  one 
or  more  of  the  original  270  links.   A  subnetwork  usability 
vector  is  constructed  based  on  the  usability  of  links  in 
each  subnetwork  and  it  is  stored  in  the  LUSEG(J)  variable 
for  output.   The  aggregate  values  for  the  four  special  MOE's 
are  calculated  for  each  subnetwork  and  these  are  then  stored 
in  four  subnetwork  MOE  files,  where  each  entry  represents 
the  value  of  the  "MOE"  over  the  total  corresponding  subnet- 
work instead  of  the  value  of  a  MOE  for  a  single  link.   The 
computed  aggregate  "MOE"  values  are  also  printed  out  in 
tabular  form. 

Program  Limits  and  Variable  Dimensions 

The  program  assumes  that  the  input  files  contain  no 
more  than  270  links  in  total  and  that  each  of  the  following 
MOE's  exist  in  the  general  format  of  the  seven  MOE  files 
created  by  each  execution  of  the  program  BRKFIL:  hourly 
vehicle  flow  rate,  average  number  of  vehicles  queued  per 
cycle,  number  of  stops,  link  travel  time  in  seconds  (times 
32),  and  average  vehicle  delay  in  seconds. 

With  respect  to  the  subnetwork  aggregates  constructed 
internally,  the  variable  dimensions  are  such  that:   (a)  no 
more  than  20  subnetworks  can  be  defined  in  any  given  run, 
including  the  subnetwork  of  all  usable  links,  if  their 
program  option  is  used  and  (b)  no  more  than  150  usable  links 
can  be  specified  in  defining  any  one  subnetwork  (this  was 
assumed  adequate  since  this  exceeds  the  number  of  usable 
multi-detector  links  found  in  runs  thus  far) .   More  than 
20  subnetworks  can  be  defined  if  the  program  is  run  more 
than  once.   However,  it  is  then  necessary  to  carefully  re- 
cord the  different  output  file  names  used  and  the  subnetworks 
associated  with  each  set  of  such  files. 

Definitions  of  Important  Variables 

1.   TABLE (I, J)      INTEGER* 2 

This  gives  the  integer  code  name  for  the  J'th  link  in 
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subnetwork  I.   I  and  J  vary  from  1  to  their  respective  limits 
(the  limits  on  J  varying  themselves  with  I) . 

2.  NLINK(I)  INTEGER* 2 

The  number  of  links  used  to  define  subnetwork  I  on 
input. 

3.  NLINK(I)  INTEGER* 2 

The  number  of  usable  multi-detector  links  actually 
used  for  aggregation  purposes.   NLINK2(I)  <     NLINK(I). 

4.  DUM(J)  INTEGER*2 

A  dummy  input  vector  used  to  read  in  the  J'th  integer 
link  code  for  a  given  subnetwork.   This  is  to  be  distin- 
guished from  a  corresponding  row  of  TABLE (I, J)  by  the  fact 
that  all  unusable  links  that  may  have  been  specified  on 
input  do  not  appear  in  the  latter. 

5.  LNLBL(I)  INTEGER  CHARACTER 

The  four-letter  subnetwork  name  used  to  identify  sub- 
network or  link  aggregation  I. 

6 .  CONQ ( I )  REAL 

The  average  total  number  of  vehicles  queued  per  cycle 
on  subnetwork  I . 

7 .  CONS ( I )  REAL 

The  total  number  of  stops  over  subnetwork  I. 

8.  CONT(I)  REAL 

The  total  number  of  vehicle  minutes  of  travel  over 
subnetwork  I . 

9.  COND(I)  REAL 

The  total  number  of  vehicle  minutes  of  delay  over 
subnetwork  I . 

10.   NNET  INTEGER 

The  number  of  subnetworks  to  be  defined  in  a  given 
CONDNS  run. 
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11.   NLKNT  INTEGER 

The  total  number  of  links  (including  unusable)  on  input 
In  subsequent  programs,  this  variable  may  also  stand  for 
the  number  of  subnetworks  on  input  to  be  analyzed  if  sub- 
network, rather  than  individual  link  analysis,  is  being 
undertaken  in  that  run. 

Technical/Quantitative  Details 

Since  the  travel  time  MOE  variable  is  scaled  up  by  a 
factor  of  32  in  the  original  data  files,  this  program  di- 
vides by  32  when  defining  the  aggregate  travel  time  MOE. 
Both  travel  time  and  delay  aggregate  MOE ' s  are  divided  also 
by  60  to  obtain  minutes  instead  of  seconds.   These  divisions 
(by  1920.  and  60.,  respectively)  were  performed  so  as  to 
make  the  resulting  values  more  meaningful  for  inspection 
purposes . 

Program  Parameters  and  Tests 

When  the  value  of  NLINK(I)  is  -1,  this  indicates  that 
the  associated  subnetwork  is  to  consist  of  all  usable  multi- 
detector  links — the  total  statistically-usable  network. 

Subroutines  Referenced 

None 
Program  Input 

Permanent  Files 
NAME:  PMMCO . UTCS . LUSGXXYZ 

SOURCE:  Disk,  NETCON  program  output 

DISPOSITION:  SHR 

UNIT  NO. :  FT10F001 


NAME:  PMMCO. UTCS. NOBS (XXY) 

SOURCE:  Disk,  OLOUT  program  output 

DISPOSITION:  SHR 

UNIT  NO. :  FT11F001 
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NAME: 
SOURCE : 
DISPOSITION 
UNIT  NO. '  s: 


PMMCO . UTCS . MOEIXXY 


1=2,4,5,7,8 


Disk,  BRKFIL  program  output 

SHR 

FT12F001,  FT13F001,  FT14F001,  FT15F001, 
FT16F001,  respectively. 


Temporary  Files 

None 

Control/Data  Cards 


DESCRIPTION: 


SOURCE : 


COLUMN  DESCRIP- 
TION: 


UNIT  NO. : 
DESCRIPTION: 

SOURCE: 


COLUMN  DESCRIP- 
TION: 


The  control  pattern/time  of  day  title 
card 

Following  the  FT08F001  DD  *  card  in  the 
JCL 

Starting  in  column  1:   "CONTROL  PATTERN 
Y:  XXXX  where  Y  is  the  pattern  number 
and  XXXX  is  either  "a.m.",  "midday", 
or  "p.m.". 

FT08F001 

The  subnetwork/link  aggregation  defini- 
tion data. 

Following  the  FT09F001  DD  *  card  in  the 
JCL 

On  the  first  card:   the  number  of  net- 
works to  be  defined,  including  the  total 
usable  network  (if  that  option  is  used) , 
is  placed  in  columns  1-10.   The  total 
number  of  links  (including  unusable) 
in  the  input  files  appears  in  columns 
11-20. 

Following  this  card  is  one  set  of  cards 
for  each  network  to  be  defined.   The 
first  card  in  each  set  contains  the 
character  label  for  the  corresponding 
subnetwork  in  columns  1-4  and  the  num- 
ber of  links  to  be  used  on  input  to 
define  the  subnetwork  in  columns  11-20. 
Following  this  card  in  each  set  are  as 
many  cards  as  is  necessary  to  specify 
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UNIT  NO. : 


all  of  the  links  in  the  corresponding 
subnetwork.   Each  card  may  hold  up  to 
14  link  numbers  in  subsequent  adjacent 
fields  of  five  columns  each,  starting 
in  column  one  and  not  extending  past 
column  70.   No  internal  blank  fields 
are  permitted.   No  link  definition  cards 
follow  the  first  card  of  a  set  if  the 
flag  value  of  -1  is  used  to  specify  the 
number  of  links  in  the  network.   The 
computer  program  will  automatically 
make  the  proper  assignment  in  this  case. 

FT09F001 


Program  Output 

Permanent  Files 
NAME: 
DESCRIPTION: 


LOCATION: 
DISPOSITION: 
I/O  FORMAT: 


PMMCO . UTCS . CON " I " XXYZ 


II  T  It    


I"  =  Q,S,T,D 


The  aggregate  subnetwork  level  "MOE" 
files  for  queues,  stops,  travel  time, 
and  delay  time,  respectively,  for  case 
XXY  when  being  compared  with  case  XXZ . 

Disk 

NEW, KEEP 

-  K, (CON"I" (J) ,J=1,NNET)    "I"  =  Q,S,T,D, 
respectively 

-  INTEGER  K   REAL   CONQ(20),  CONS (20), 
CONT(20) ,COND(20) 

-No.  of  records  =  no.  of  observations 


UNIT  NO. 's: 


FT17F001,  FT18F001,  FT19F001,  FT23F001, 
respectively 


NAME: 
DESCRIPTION: 


PMMCO . UTCS . LUSCXXYZ 


The  subnetwork  u 
indicates  which 
networks  will  be 
purposes  (that  i 
one  usable  multi 
cases  XXY  and  XX 
indicates  usable 
The  value  "2"  is 
usability  purpos 


sability  vector,  which 

of  the  specified  sub- 
usable  for  statistical 

s,  contains  at  least 

-detector  link)  when 

Z_  are  compared  .   1 

,  0  indicates  not  usable 
not  used  for  subnetwork 

es. 
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LOCATION: 
DISPOSITION 
I/O  FORMAT: 

UNIT  NO. : 


Disk 
NEW, KEEP 

-  (LUSEG(J) ,J=1,NNET) 
INTEGER* 2   LUSEG(270) 

-  1  record 

FT20F001 


NAME: 
DESCRIPTION: 

LOCATION: 
DISPOSITION: 
I/O  FORMAT: 


UNIT  NO. 


PMMCO . UTCS . LBLXXYZ 

The  four-letter  names  of  the  subnetworks 
defined  for  this  run  of  the  program. 

Disk 

NEW, KEEP 

-  (LNLBL(J) ,J=1,NNET) 

-  FORMAT (18A4) 

-  1  set  of  records,  as  many  records  as 
are  needed  to  exhaust  one  writing  of 
the  variable  list. 

FT21F001 


Temporary  Files 

None 

Printer,  Error  Messages 


(See  Figure  24. ) 


DESCRIPTION: 


First,  the  title  of  the  control  pattern/ 
time  of  day  case  under  consideration 
is  printed.   This  is  followed  by  a 
listing  of  all  subnetworks  which  were 
found  to  have  no  usable  multi-detector 
links,  if  any.   Finally,  in  tabular 
form  the  values  for  all  four  aggregate 
"MOE's"  for  each  subnetwork  and  each 
observations  is  printed  out. 


JCL  to  Run  Program 

To  make  a  run,  the  following  must  be  done: 
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CONTROL  PATTERN  l;  A.M. 


OSSERV.   NETWORK. 


2 

2 
2 
2 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
i 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


1 
2 

3 

4 
12 
3* 


EAST 
WLST 
NO*. 

vjj. 

L  ST 
K  ST 

PfcNN 
CiJ?* 
a  /SI 

lasr 

lvST 
10TL 
S  1 
S   2 


3 

* 
12 
34 
£  AS  I 

vtsr 

NO.t ., 
SuU. 
L  ST 
K  ST 
PtNN 
CuN 
17ST 
16ST 
19S1 
TJTL 
S  1 
S   2 


4 
12 
3* 


tAST 
WbSl 

NuR. 
SOO. 
L  ST 
K  ST 
PuNN 
Ct!N 
A7ST 
Id  ST 
19ST 


QOEOES 

27. 
7*. 

230. 

93. 
101. 
323. 

85. 

7*. 

76. 

b3. 

22. 

5j. 

33. 

41. 

20. 

21. 

26. 
*2*. 

26. 

71. 
217. 

66. 

99. 
30j. 

7d. 

6V. 

77. 

61. 

20. 

26. 

3b. 

25. 

16. 

24. 
40-*. 

26. 

72. 
23  5. 

93. 

32b. 
o3. 
76. 
/>. 
92. 
2u. 
52. 
26. 
40. 
22. 
lv. 
29, 


STOPS 

2*7. 

619. 
17*7. 

oil. 

b6'. 
2358. 

561. 

62  6. 

561. 

596. 

161. 

39b. 

253. 

254. 

10b. 

166. 

2o9. 
322*. 

239. 

588. 
le.64. 

570. 

827. 
223*. 

4b7. 

552. 

5(StJ. 

627. 

12C. 

366. 

191. 

227. 

162. 

143. 

212. 
3061. 

2*5. 

561. 
1672. 

665. 

306. 
2537. 

551. 

687. 

576. 

723. 

130. 

457. 

220. 

261. 

137. 

167. 

257. 


VEH.    MtNOTES         MIN.    OF    DELAY 


1118. 
2502. 
7933. 
322  5. 
3621. 
11159. 
3C37. 
26u6. 
2630. 
26bo. 

6C9. 
J720. 
1224. 
1477. 

c/3. 

7*4. 

14b. 
1*779. 
10b5. 
2457. 
7723. 
3021. 
35%2. 
1074*. 
2619. 
2m79. 

2(1*6. 

2698. 

65*. 
1730. 

965  « 
135t>. 

65*. 

toO*. 

877. 
1*266. 
1115. 
2361. 
8281. 
3*16. 
3*76. 
11699. 
3058. 
27b5. 
2741. 
311a. 

t>66. 
1922. 
11*3. 
1*70. 

622. 

666. 

956. 


909. 
19*0". 
5635. 
22H7. 
2b*9. 
7922. 
2C09. 
20*6. 
1928. 
1V50. 

6u7. 
1630. 

«»55. 
1007. 

*53. 

56d. 

6(5. 
10761. 

t»i>9. 
Ibb9. 
5V>2. 
21C2. 
27^8. 
7^94. 
17  73. 
17*6. 
2o44. 
2C0.'. 

*72. 
Io04. 

7*4. 

V03. 

609. 

*25. 

7->2. 
iu3<<2. 

9C0. 
17  91. 
59*6. 
24  73. 
2691. 
6*21. 
1S91. 
2CV5. 
20  39. 
22S7. 

506  . 
1^27." 

7t,9. 
100  7. 

572. 

*93. 

V53. 


Figure  24.   Sample  printout  from  run  of  program  CONDNS. 
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1.  The  title  card  must  identify  the  appropriate  con- 
trol pattern  and  time  of  day. 

2 .  The  subnetwork  aggregation  data  cards  must  be 
correctly  specified. 

3.  XXYZ  file  subscripts  must  pertain  to  the  correct 
control  pattern  and  time  of  day,  as  well  as  that  of  the  case 
with  which  it  is  being  compared. 


PROGRAM  POSTPROC 

Summary  Description 

The  program  POSTPROC  is  executed  to  perform  the  statis- 
tical computations  and  tests  of  the  final  step.   In  this 
final  step,  the  statistical  comparison  of  the  system's  per- 
formance under  two  different  control  patterns  is  made  for 
a  given  time  of  day.   Each  run  of  the  program,  together 
with  its  associated  subroutines,  produces  one  or  more  tables 
which  present  the  statistical  calculations  and  tests  made, 
either  on  an  individual  link  or  subnetwork  basis,  depending 
upon  the  control  cards  and  type  of  MOE  files  used  on  input. 

Because  the  program  has  many  output  options  and  be- 
cause it  produces  only  printed  output,  POSTPROC  can  be 
meaningfully  run  a  number  of  times  for  the  same  pair  of 
control  pattern/time  of  day  cases. 

Each  row  in  a  table  represents  a  separate  set  of  cal- 
culations and  statistical  tests.   A  row  may  represent  a 
usable  link  or  subnetwork  for  which  the  calculations  and 
tests  are  made  on  a  sample  of  different  observation  values 
for  that  link  or  subnetwork.   Alternatively  (by  changing 
control  parameters) ,  each  row  can  represent  a  matched  pair 
of  observations  and  the  calculations  and  tests  are  made 
across  a  sample  of  all  usable  link  values  for  the  respec- 
tive observations  of  that  row. 

By  reference  to  a  number  of  subroutines,  the  program 
makes  the  following  calculations  and  statistical  tests 
(once  for  each  row  in  each  table  in  the  printed  output) : 

1.   The  mean  and  standard  deviation  for  the  MOE  under 
consideration  over  the  appropriate  sample  is  calculated 
for  the  two  cases  under  consideration.   The  signed  per- 
centage difference  of  these  two  means  is  calculated. 
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2.  A  two-tailed  T  test  is  performed  to  test  the  null 
hypothesis  that  the  mean  values  of  the  MOE  for  the  two 
cases  were  not  significantly  different. 

3.  A  two-tailed  Mann-Whitney  U  test  is  performed  to 
test  the  same  null  hypothesis. 

4.  A  Kolmogorov-Smirnov  two-sample  test  is  performed. 
It  is  intended  to  be  a  one-tailed  test  of  the  null  hypo- 
thesis that  either  the  first  case's  distribution  of  MOE 
values  is  not  significantly  "greater"  than  that  of  the 
second  or  vice  versa,  whichever  tail  is  appropriate  in  light 
of  the  data.   However,  if  a  level  of  significance  in  re- 
jecting the  null  hypothesis  in  both  directions  is  achieved, 
the  significance  test  defaults  to  the  two-tailed  type.   In 
any  case,  all  test  statistics  are  calculated  and  made 
available  in  the  printed  output. 

By  varying  the  control  cards,  it  is  possible  to  obtain 
tables  for  one,  several,  or  all  of  the  available  MOE ' s  in 
a  given  run.   Also,  it  is  possible  to  obtain  tables  with 
rows  by  link/subnetwork  and/or  by  observation  for  each  MOE 
treated. 

Program  Limits  and  Variable  Dimensions 

The  program  can  handle  up  to  100  observations  for  each 
case  on  input,  but  the  variables  are  dimensioned  so  that 
no  more  than  90  observations  can  be  retained  as  usable  for 
the  statistical  comparisons  (the  program  assumes  that  the 
input  data  files  contain  all  observations  and  links;  the 
program  will  use  the  appropriate  observation  and  link/sub- 
network usability  vectors  to  choose  the  proper  subset  of 
these  for  statistical  analysis  internally) . 

For  MOE  input  data  in  half-word  integer  form,  up  to 
270  links  or  subnetworks  are  permitted  on  input.   For  data 
in  full-word  integer  or  real  form,  no  more  than  135  links 
or  subnetworks  are  allowed.   For  a  given  run  of  the  program, 
only  one  type  of  MOE  input  data  is  permitted.   Unlike 
previous  programs  described,  POSTPROC  reads  in  the  appro- 
priate number  of  links  or  subnetworks  instead  of  assuming 
a  standard  270  link  format.   Thus,  this  program  can  be 
applied  to  MOE  data  generated  from  other  sources. 

Tests  on  up  to  eight  different  MOE ' s  (if  that  many 
MOE  files  exist)  can  be  made  in  a  given  run,  on  either  or 
both  the  link/subnetwork  and  observation  bases.   However, 
a  single  run  must  pertain  to  either  single  links  or  sub- 
networks, but  not  both.   All  calculations  and  statistical 
tests  described  above  are  made  unless  the  sample  size  spec- 
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ified  is  below  the  minimum  value  specified  within  the  pro- 
gram for  that  test  or  calculation  to  be  made. 

Definitions  of  Important  Variables 

1.  A  (J)  REAL 

The  variable  used  to  hold  the  MOE  value  for  the  Jth 
member  of  the  sample  for  a  given  "row"  for  the  first  case. 
This  is  the  variable  used  in  the  actual  row-by-row  statis- 
tical calculations  and  tests.   The  element  A (J  +  NMBR)  is 
also  used  to  store  the  value  of  B(J)  [see  below  for  defini- 
tions of  NMBR  and  B(J)] . 

2.  B(J)  REAL 

As  A (J) ,  but  for  the  second  case. 

3.  D(J)  REAL 

This  variable  is  used  as  a  temporary  storage  variable 
in  various  capacities  in  conjunction  with  the  statistical 
subroutines.   Its  first  element  is  used  to  return  the  value 
of  the  T  statistic  and  then  the  statistic  for  the  U  test 
to  the  main  program.   In  the  T  test  subroutine,  it  is  also 
used  to  store  in  its  first  three  elements  the  three  appro- 
priate calculated  critical  significance  test  values  in 
cases  of  "large"  sample  size.   In  the  U  test  and  RANK  sub- 
routines, the  variable  which  corresponds  to  D(J)  in  the 
calling  sequence  holds  ranks  for  a  sorting  of  the  pooled 
MOE  values  for  both  cases  for  a  given  "row." 

4.  M0E1(I,J)  and  M0E2(I,J)    REAL 

The  input  storage  variables  for  a  given  MOE  for  cases 
1  and  2,  respectively.   Element  I, J  is  the  value  for  link 
J  on  observation  I.   These  variables  are  used  when  the 
output  MOE  files  contain  real  word  data. 

5.  IM0E1(I,J)  and  IM0E2(I,J)     INTEGER 

The  full-word  integer  counterparts  of  M0E1  and  M0E2, 
used  when  the  input  files  are  in  full-word  integer  format. 

6.  IHM0E1(I,J)  and  IHM0E2(I,J)    INTEGER*2 

The  half-word  integer  counterparts  of  M0E1  and  M0E2. 
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7.  NMSTAT     REAL* 8     CHARACTER 

The  eight-letter  character  name  identifying  what  each 
row  the  corresponding  output  table  represents:   a  link, 
link  aggregation  (subnetwork) ,  or  observation. 

8.  LNKNAM     REAL* 8 

Holds  the  character  string  value  of  'LINKS'  that  the 
variable  NMSTAT  may  assume. 

9.  IAGNAM     REAL* 8 

Holds  the  character  string  value  of  'AGGREG. '  that 
NMSTAT  may  assume. 

10.  IOBSNM     REAL*8 

Holds  the  character  string  value  of  'OBSERV. '  that 
NMSTAT  may  assume. 

11.  PTRNA      INTEGER 

Holds  the  number  of  the  control  pattern  for  the  first 
case  in  this  run. 

12.  PTRNB      INTEGER 

As  PTRNA,  but  for  the  second  case  in  the  run. 

13.  TOD        INTEGER    CHARACTER 

Holds  the  four-letter  designation  for  the  time  of  day 
of  the  two  cases  in  the  run. 

14 .  LNKNT      INTEGER 

=  1  if  individual  link  MOE  files  are  being  read  in. 

=  2  if  subnetwork/link  aggregation  MOE  files  are  being 
read  in. 

15.  TWIND      INTEGER 

The  control  variable  used  to  specify  the  type  of  word 
used  on  input  in  the  MOE  files: 

=  1     Real 

=  2     Integer  full  word 

=  3     Integer  half  word 
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16.  NOBS  INTEGER 

In  this  program  the  variable  stores  the  number  of 
usable  observations  actually  used  in  the  statistical  analy- 
sis, and  thus  equal  for  both  cases. 

17.  AA,  IA,  IHA     REAL,  INTEGER,  INTERGER*2,  respectively 

Dummy  input  variables  used  to  skip  over  unused  file 
records  on  input. 

18.  NMOE  INTEGER  ' 

The  number  of  MOE ' s  to  be  used  as  the  basis  of  case 
comparison  in  the  run. 

19.  TESTBS  INTEGER 

This  variable  indicates  whether  the  analysis  should  be 
done  with  links/subnetworks,  observations,  or  both  (in 
sequential  tables)  as  rows: 

=  1  tables  with  rows  as  links  or  subnetworks  only 

=  2  tables  for  both  alternatives 

=  3  tables  with  rows  as  observations  only. 

20.  MOENAM(I,J)     INTEGER      CHARACTER 

(MOENAM(I,J) , 1=1,5)  holds  the  20-letter  character 
string  describing  the  Jth  MOE  for  which  statistical  compari- 
sons are  made. 

21.  SIGP(I)  INTEGER      CHARACTER 

The  significance  flag  associated  with  a  significance 
value  of  1-1. 

22.  SIGKS(IDIR)     INTEGER      CHARACTER 

The  one-tail  direction  indicator  for  the  Kolmogorov- 
Smirnov  test  significance  flag  associated  with  the  given 
value  of  IDIR. 

23.  NUSLNK  INTEGER 

The  number  of  links  usable  for  the  statistical  compar- 
ison. 

24.  KDO  INTEGER 

This  indicates  the  table  (either  1  or  2)  presently 
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being  produced  for  a  given  MOE .   KDO  =  2  occurs  only  if 
TESTBS  =  2. 

25.  NTEST  INTEGER 

This  stores  the  total  number  of  elements  from  which 
the  table  rows  will  be  picked. 

26.  NMBR  INTEGER 

This  stores  the  actual  sample  size  to  be  used  in  the 
statistical  calculations  and  tests. 

27.  TT,  TU  REAL 

The  values  of  the  test  statistics  for  the  T  and  U 
tests,  respectively. 

28.  ITP,  ITM  IT2    INTEGER 

The  values  of  the  one-tailed  "+",  one-tailed  "-",  and 
two-tailed  Kolmogorov-Smirnov  test  statistics,  respectively. 

29.  ISIGT,  ISIGU,  ISIGP,  ISIGM,  ISIG2,  ISIGX     INTEGER 

The  significance  levels  achieved  by  the  T  test;  U 
test;  one-tailed  "+",  one-tailed  "-",  two-tailed,  and 
selected  "appropriate"  Kolmogorov-Smirnov  tests,  respectively 

30.  IDIR  INTEGER 

The  indicator  of  the  "appropriate"  direction  of  the 
Kolmogorov-Smirnov  test. 

=  1  one-tailed  "+" 
=  2  one-tailed  "-" 
=  3     two-tailed 

31.  ABAR,  BBAR      REAL 

The  mean  value  of  the  MOE  for  the  given  row  for  cases 
1  and  2,  respectively. 

32.  VARA,  VARB      REAL 

The  variance  of  the  MOE  values  for  the  given  row  for 
cases  1  and  2,  respectively. 

33.  STDVA,  STDVB    REAL 

The  standard  deviations  for  cases  1  and  2,  respectively. 
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34.   DELPER  REAL 

The  signed  percent  difference  in  the  MOE  means  for  the 
two  cases  for  a  given  row. 

Technical/Quantitative  Details 

The  variables  used  to  store  the  input  MOE  data  for 
real,  full-word  integer  and  half-word  integer  data  are 
equivalenced  to  share  the  same  core,  so  that  only  one  type 
of  word  can  be  handled  in  any  given  run. 

Program  Parameters  and  Tests 

1.  The  significance  level  achieved  in  rejecting  the 
null  hypothesis  in  a  statistical  test  is  graphically  pre- 
sented through  the  printing  of  asterisks  (stored  in  SIGP) 
following  the  test  statistic  value (s).   If  no  significance 
was  achieved,  no  asterisks  are  printed.   If  the  lowest 
level  of  significance  is  achieved  (95  percent) ,  one  asterisk 
is  printed.   Two  asterisks  indicate  the  second  significance 
level  (97.5  percent  or  98  percent)  and  three  asterisks,  the 
highest  significance  level  (99  percent) .   If  the  test  could 
not  be  made  for  any  reason,  an  "NT"  is  printed  instead. 

2.  Just  before  the  significance  level  indicator  for 
the  Kolmogorov-Smirnov  in  each  row  of  a  table  is  printed, 
the  test's  tail  direction  indicator  appears.  A  "<"  indi- 
cates that  case  1  (condition  A)  had  a  distribution  of  MOE 
values  that  was  significantly  lower  than  that  of  case  2 

(condition  B) .   A  ">"  indicates  the  reverse.   The  absence 
of  either  indicates: 

(a)  no  significance  was  achieved  if  no  *'s  follow 
this  blank,  or 

(b)  a  two-tailed  significance  test  was  used  if  one 
or  more  *  * s  do  follow  the  blank. 

3.  If  the  sample  size  is  less  than  three,  no  statis- 
tical test  or  calculation  is  performed  and  this  fact  is 
printed  out  instead  of  the  corresponding  table. 

4.  A  significance  level  of  four  signifies  that  the 
corresponding  test  was  not  performed  and  an  "NT"  is  printed 
out. 

5.  The  following  values  of  IDIR  have  the  following 
significances : 
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IDIR  =  1 
IDIR  =  2 
IDIR  =  3 


"+"  one-tailed  test.  Print  "<" 
"..-"  one-tailed  test.  Print  ">" 
two-tailed  test  default.   Print  a  blank 


6.   The  T  test  is  not  performed  unless  the  sample  size 
is  at  least  nine.   The  U  test  is  not  performed  unless  the 
sample  size  is  at  least  four. 

Subroutines  Referenced 

The  main  program  POSTPROC  directly  calls  the  subrou- 
tines READER,  KSTEST,  CALC ,  TTEST ,  AND  UTEST .   In  turn, 
KSTEST  calls  SWITCH  (which  is  physically  appended  to  the 
end  of  KSTEST  in  the  file  containing  this  first-level  sub- 
routine) and  UTEST  calls  RANK  (which  is  physically  part 
of  the  source  file  containing  all  of  the  subroutines  except 
READER,  KSTEST,  and  SWITCH) . 

Subroutine  READER  is  physically  appended  to  the  end  of 
POSTPROC.   KSTEST  and  SWITCH  are  in  a  separate  source  file 
under  the  name  of  the  former.   All  other  subroutines  are 
in  another  file  named  POSTSUB.   The  functions  of  the 
subroutines  are  as  follows. 

Subroutine  Reader 

This  subroutine  is  called  for  every  row  of  every  table 
just  before  the  statistical  subroutines  are  called  for  that 
row.   Its  sole  function  is  to  place  in  the  vectors  A  and  B 
the  MOE  values  for  cases  1  and  2,  respectively,  for  all 
statistically-usable  elements  in  the  sample  for  the  current 
row  of  the  table.   The  values  stored  in  A  and  B  are  the  row 
data  values  used  as  input  to  the  statistical  subroutines. 
Depending  on  the  type  of  analysis  being  done,   these  two 
vectors  may  correspond  to  either  a  rov;  or  column  in  each 
of  the  two  large  MOE  data  matrices  stored  earlier  by  the 
main  program. 

Subroutine  KSTEST 

This  subroutine  performs  the  two-sample  Kolmogorov- 
Smirnov  test.   This  is  a  nonparametric  statistical  test 
that  is  well  adapted  to  testing  for  general  differences 
between  distributions.   The  one-tailed  test  statistics  are 
based  on  the  maximum  and  minimum  signed  vertical  differences 
between  the  cumulative  MOE  distributions  for  the  two  cases, 
respectively.   The  two-tailed  statistic  is  based  on  the 
maximum  absolute  vertical  difference  between  the  two  dis- 
tributions . 

107 


For  sample  sizes  of  40  or  less,  the  critical  signifi- 
cance level  values  used  by  the  subroutine  were  the  appro- 
priate values  taken  from  test  tables.   When  the  sample  size 
exceeded  40,  the  significance  tests  had  to  use  an  asymptotic 
approximation  formula  (based  on 


yJ2*N)  . 


The  one-tailed  test  was  assumed  unless  both  one-tailed 
tests  were  significant,  in  which  case  the  two-tailed, 
undirectional  test  was  used.   For  the  one-tailed  tests,  the 
three  significance  levels  were  95  percent,  97.5  percent, 
and  99  percent.   For  the  two-tailed  tests,  the  significance 
levels  were  95  percent,  98  percent,  and  9  9  percent. 

The  subroutine  SWITCH  is  called  by  KSTEST  as  part  of 
the  process  of  sorting  the  set  of  MOE  values  pooled  from 
both  A  and  B.   This  sort  precedes  the  calculation  of  the 
test  statistics. 

Subroutine  CALC 

This  subroutine  calculates  the  mean  value  and  variance 
for  input  vectors  A  and  B. 

Subroutine  TTEST 

This  subroutine  performs  a  two-tailed  T  test  to  see  if 
the  null  hypothesis  that  the  mean  MOE  value  for  the  two 
cases  are  equal  can  be  rejected.   The  T  statistic  is  cal- 
culated, assuming  that  the  standard  deviation  of  the  two 
populations  involved  is  not  in  general  equal: 


B 


T   = 


V 


£   [(A(I)  -  A2  +  (B(I)  -  B)2] 

1=1 

N* (N-l) 


where  N  is  the  common  sample  size  for  the  two  cases  (the 
number  of  actual  elements  in  vectors  A  or  B) .   The  degrees 
of  freedom  used  was  2*N-2. 

The  three  significance  levels  for  this  test  were  95 
percent,  98  percent,  and  99  percent  (corresponding  to  *, 
**,  and  ***,  respectively).   Critical  significance  values 
for  df>  25  were  estimated  using  linear  interpolation  of 
table  values,  with  a  lower  bound  of  the  critical  values  for 
df  =  °°  . 
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Subroutine  UTEST 

This  subroutine  performs  a  two-tailed  Mann-Whitney  U 
test,  a  nonparametric  test  to  determine  if  the  two  distri- 
butions of  MOE  values  (A  and  B)  are  significantly  different 
The  test  statistic  is  based  on  a  sum  of  ranks  from  a  pool- 
ing of  A  and  B  values,  where  tied  values  are  all  given  a 
rank  equal  to  the  average  of  all  the  adjacent  integral 
ranks  that  these  numbers  would  have  assumed  if  they  were 
all  slightly  different  from  each  other.   The  ranking  pro- 
cedure is  accomplished  by  calling  subroutine  RANK. 

The  three  significance  levels  are  95  percent,  98  per- 
cent, and  99  percent.   For  sample  sizes  exceeding  20,  a 
test  approximation  based  on  the  normal  distribution  is  used 
instead  of  the  exact  critical  table  values. 

Program  Input 

Permanent  Files 


NAME: 
SOURCE : 


PMMCO . UTCS . LBLXXYZ 

Disk,  CONDNS  program  output  (replace 
this  unit  no.  file  reference  with  a 
DD  *  card  if  an  appropriate  CONDNS  has 
not  been  run  and  LNKNT^2 


DISPOSITION 
UNIT  NO. : 


SHR 
FT11F001 


NAME: 


SOURCE : 


PMMCO . UTCS . LUSGXXYZ  for  individual  link 

analysis 

PMMCO . UTCS . LUSCXXYZ  for  subnetwork 

analysis 

Disk.   NETCON  program  output  and  CONDNS 
program  output,  respectively 


DISPOSITION 
UNIT  NO. : 


SHR 
FT12F001 


NAME: 
SOURCE : 
DISPOSITION: 


PMMCO . UTCS . OBUSXXYZ 

Disk,  PREPOST  program  output 

SHR 
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UNIT  NO. : 


FT13F001 


NAME: 


SOURCE : 

DISPOSITION 
UNIT  NO. : 


PMMCO.UTCS.MOEIXXY  for  individual  link 
analysis,  where  all  NMOE  different  I_ 
files  are  concatenated  in  the  correct 
order  for  this  unit  number. 
PMMCO . UTCS . CON " I " XXY  for  subnetwork 
analysis,  where  as  many  "I_"  from  Q,S, 
T,  and  D  as  are  desired  are  concatenated 
for  this  unit  number  in  the  desired 
order . 

Disk.   BRKFIL  program  output  and  CONDNS 
program  output,  respectively 


SHR 


FT15F001 


NAME:  ^ 
SOURCE :  < 
DISPOSITION:/ 


As  with  the  unit  no. 
,FT15F001  file(s),  but  Y 
is  everywhere  replaced  by  Z 


UNIT  NO. :  FT16F001 

Temporary  Files 
None 
Control/Data  Cards 


DESCRIPTION: 
SOURCE : 
NUMBER: 
CONTENT : 


Program  control  parameters 
Following  the  FT05F001  DD  *  card. 
As  required,  normally  one  card. 
FORTRAN  NAMELIST  of  the  following  type: 


&PARAM 
NMOE  =  n 

TESTBS  =  n 


NAMELIST  identifier 

number  of  MOE ' s  for 
testing 

type  of  tests  to  be  per- 
formed 

n=l :   link  or  subnetwork 
statistics  only 
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2:   link  or  subnetwork 
and  observation 
statistics 

3 :   observation  stat- 
istics only 

LNKNT  =  n   type  of  analysis 

n=l:   link  analysis 

2:   subnetwork  analysis 

TWIND  =  n   type  of  data 

n=l:   binary  floating  point 
full  words 

2:   binary  integer  full 
words 

3:   binary  integer  half 
words 

SEND       NAMELIST  terminator 

Note:   All  values  must  be  supplied. 


DESCRIPTION: 
SOURCE : 
NUMBER : 
CONTENT : 


FORMAT : 
DESCRIPTION: 
SOURCE : 
NUMBER: 
CONTENT : 

FORMAT: 


Label  for  alternatives 
Concatenated  to  the  above  card . 
Two  cards 

Card  1:  Alphanumeric  description  of 
the  first  alternative. 

Card  2:  Alphanumeric  description  of 
the  second  alternative. 

(20A4) 

Number  of  observations 

Concatenated  to  the  above  cards 

Two  cards,  one  for  each  alternative. 

Card  1:   N0BS1 
Card  2:   NOBS 2 

(110) 
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DESCRIPTION 
SOURCE : 
NUMBER : 
FORMAT : 
DESCRIPTION: 
SOURCE : 
NUMBER : 
CONTENT : 

FORMAT: 


Number  of  links  or  subnetworks 

Concatenated  to  the  above  cards 

One  card 

(110) 

MOE  labels 

Concatenated  to  the  above  card 

NMOE  cards 

Card  n:   contains  an  alphanumeric  level 
for  the  n'th  MOE. 

(5A4) 


Program  Output 

Permanent  Files 

None 

Temporary  Files 

None 

Printer,  Error  Messages 

(See  Figure  25. ) 

Description 

The  normal  printer  output  will  consist  of  one  or  more 
statistical  comparison  tables.   Each  will  be  described  as 
to  the  two  cases  being  compared;  whether  the  rows  of  the 
table  will  represent  links,  subnetworks,  or  observations; 
the  sample  size  involved;  and  the  MOE  on  which  the  compari- 
son is  being  made.   All  tables  for  a  given  MOE  will  be 
printed  before  any  tables  for  other  MOE ' s  are  printed. 

Each  table  will  have  column  headings  which  will  identi- 
fy the  following  information  that  will  appear  for  each  row: 

1.   the  link  or  observation  number  or  subnetwork  label 
for  the  row; 
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STATISTICAL  COMPARISON  OF  A  MEASURE  OF  EFFECTIVENESS  FOR 

CONDITION  A  i  CONTROL  PATTERN  3  AM  DETECTOR  MOES 
CONDITION  B  i  CONTROL  PATTERN  I  AM  DETECTOR  MOES 
COMPARISONS  MADE  BY  LINK 


ITU 


"A"  AND  MB" 


BASIS  OF 

COMPARISONS  ■ 

AVG. 

SPEED 

BY  LINKS 

LNKNT  / 

CONDITION  - 

CONDITION  b 

CIFFExtNC 

L 

T  Tlj 

T 

U  TE_ 
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KOLMOGOku 

Y-SMIUNOV 
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0/2 

T» 
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T2 

sir,. 
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J 
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24 
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5 
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3.<I 

20.8 

3.1 
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-1.640 

9 

0 

9 

7 

2C.5 

1  .b 

22.7 

1.9 

-1  D.J 

h 

5.959 

**-* 

-5.118 

*  *  * 

22 

0 

22 

<*#* 

8 

16.5 

1.7 

17.  = 

1.6 

-',.Z 

2.086 

« 

-1.769 

U 

0 

10 

10 

21.7 

2  .u 

21.6 

1.  1 

0.7 

^ 

0.357 

-0.269 

5 

9 

9 

20 

28.2 

1.5 

29.6 

1.7 

-4.8 

, 

4  .43t 

4  <f  * 

-4.003 

*** 

13 

0 

18 

<*** 

21 

24. fc 

1.6 

19.7 

1.0 

23.  J 

4 

19.673 

*** 

-b.824 

4*» 

0 

52 

52 

>e*» 

24 

23.4 

4.3 

22.5 

4.4 

-..3 

„ 

1.077 

-0.512 

7 

9 

9 

2b 

22.3 

3  .2 

21.6 

3.^ 

3.1 

% 

1.007 

-0.663 

3 

8 

8 

27 

23.4 

1.8 

22. o 

1.6 

3.2 

<. 

2  .266 

* 

-1.902 

0 

9 

9 

30 

16.4 

1.3 

19. o 

1.3 
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4 

12.750 

«nf 

-8.037 

*** 

43 

0 

43 

<*•* 

33 

21.1 

1.3 

21.5 

1.2 

-2.0 

1.617 

-1.267 

6 

0 

6 

34 

24.8 

4.7 

27.1 

2.  7 

-b.5 

* 

2.963 

**? 

-3.11b 

*4* 

22 
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Figure    25.      Sample   printout   from  run  of   program  POSTPROC. 
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2.  the  mean  value  and  standard  deviation  for  case  1, 
followed  by  the  same  for  case  2; 

3.  the  signed  percentage  difference  (using  the  aver- 
age as  divisor)  of  the  two  means; 

4.  the  value  of  the  T  test  statistics  and  the  signifi- 
cance level  it  represents  (indicated  by  the  number  of 
asterisks  following  this  value) ; 

5.  the  value  of  the  U  test  statistic  and  the  signifi- 
cance level  it  represents; 

6.  the  values  of  the  three  Kolmogorov-Smirnov  test 
statistics  (one-tailed  "+",  one-tailed  "-",  and  two-tailed) 
and  the  significance  level  for  the  "appropriate"  one  of 
the  three  tests.   The  direction  indicator  or  its  absence 
will  specify  which  of  the  three  tests  was  chosen  as  "appro- 
priate" . 

If  the  sample  size  was  below  the  minimum  necessary  num- 
ber specified  in  the  program,  the  message  "TOO  FEW  OBSER- 
VATIONS [  or  "USABLE  LINKS",  if  appropriate]  AVAILABLE  TO 
TEST:",  followed  by  the  number  involved,  will  be  printed 
out  instead  of  the  usual  table. 

JCL  to  Run  Program 

To  make  a  run  with  POSTPROC  the  JCL  must  be  appropriate 
with  respect  to: 

1.  the  control/data  cards  specifying  the  control  para- 
meters and  the  names  of  the  MOE ' s  to  be  used; 

2.  the  XXY,  XXZ ,  and  XXYZ  file  name  subscripts  used; 

3.  the  correct  concatenation  of  MOE  files  to  corres- 
pond with  the  MOE  names  specified? 

4.  if  the  analysis  is  to  be  done  on  a  subnetwork 
basis,  the  link/subnetwork  usability  vector  and  MOE  input 
file  names  must  be  those  corresponding  to  the  subnetwork 
files . 
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OPERATIONAL  PROCEDURES 


The  detector  data  analysis  programs  can  either  be  exe- 
cuted individually  in  the  proper  sequence  or  joined  together 
in  the  form  of  catalogued  procedures.   The  latter  mode  of 
operation  reduces  the  number  of  permanent  data  sets,  de- 
creases the  probability  of  user  error,  and  facilitates  the 
repetitive  application  of  the  programs  through  the  use  of 
symbolic  parameters  in  the  data  set  names. 

Two  catalogued  procedures  have  been  developed  to  pro- 
cess the  detector  data.   The  first  procedure  (named  STRING) 
should  be  applied  for  each  time-of-day  within  each  control 
alternative,  e.g.  alternative  3,  a.m.   The  second  procedure 
(POST)  uses  the  alternative/time-of-day  data  sets  produced 
by  STRING  as  input  to  make  comparisons  between  alternatives, 
e.g.,  alternative  3  versus  alternative  3,  a.m.  traffic 
conditions.   The  programs  contained  within  the  catalogued 
procedures  are  illustrated  in  Figures  26  and  27. 

A  number  of  sequential  and  partitioned  data  sets  were 
created  to  facilitate  the  operation  of  the  procedures. 
These  data  sets  contain  control  cards  and  data  which  corres- 
pond directly  to  the  input  formats  of  the  individual  pro- 
grams documented  earlier.   Although  the  procedures  are 
currently  tied  very  closely  to  the  operational  objectives 
and  data  formats  of  the  Phase  I  evaluation  project,  modifi- 
cations can  readily  be  made  to  the  input  data  and  control 
cards  to  permit  other  applications. 


PROCEDURE  STRING 

Input  Datasets 

PMMCO . UTCS . TEMPXXY 

Output  Datasets 

PMMCO . UTCS . NOBS (XXY) 
■LABS(XXY) 

. INDGXXY  (optional) 
.LUSEXXY 

. IBARXXY  (optional) 
♦ GBARXXY  (optional) 
. HEADXXY 

. INDSXXY  (optional) 
.M0E2XXY 
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OLOUT 

i 

' 

SORT 

1 

' 

PLUGNET 

" 

SCTRGM 

■ 

SORT 

_ 

' 

BRKFIL 

■ 

r 

ENDPRNT 

Figure  26 .   Procedure  STRING 
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CONDNS 


coraNS 


POSTPROC 
(aggregates) 


NETCON 


SORT 


SORT 


PREPOST 


POSTPROC 
(link-specific) 


Figure  27.   Procedure  POST 
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.M0E8XXY 

Operation 

The  procedure  is  invoked  by  the  use  of  an  EXEC  card 
with  the  appropriate  parameters  specified: 


Symbolic  Parameter 
DDN 

DINDG 

DIBAR 

DGBAR 


Default  Value 


none 


DINDS 


DELETE 


DELETE 


DELETE 


DELETE 


Description 

time-of -day/alter na- 
tive designation: 
XXY,  e.g.,  PM3 

disposition  of  data 
set  PMMCO.UTCS. 
INDGXXY 

disposition  of  data 
set  PMMCO.UTCS. I BAR- 
XXY 

disposition  of  data 
set  PMMCO.UTCS. GBAR- 
XXY 

disposition  of  data 
set  PMMCO.UTCS. INDS- 
XXY 


In  the  most  basic  mode  of  operation,  the  only  other 
input  cards  are  used  to  produce  a  unique  label  to  identify 
the  time-of -day/alternative  output  data  sets.   The  label 
card  can  contain  up  to  7  2  alphanumeric   characters;  the 
format  is  (18A4) .   The  following  sample  setup  illustrates 
the  basic  JCL  and  control  cards  needed  to  execute  the  cata- 
logued procedure: 

//EXEC  STRING, DDN=PM3,DGBAR=KEEP 

//ON.SYSUTI  DD  * 

CONTROL  PATTERN  3  PM  DETECTOR  MOES 

In  this  example,  the  optional  output  data  set  PMMCO. 
UTCS.GBARPM3  has  been  retained  for  future  use. 
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PROCEDURE  POST 


Input  Datasets 


PMMCO . UTCS . NOBS (XXY) 
.LABS(XXY) 
.LUSEXXY 
. HEADXXY 
.MOE2XXY 
.MOE3XXY 


(optional) 


.MOE8XXY 

Output  Datasets 

PMMCO . UTCS . SRT3XXYZ 
PMMCO . UTCS . SRT3XXZ Y 


(optional) 


Operation 

Procedure  POST  is  invoked  by  the  use  of  an  EXEC  card 
containing  the  appropriate  parameters  and  their  associated 
values: 


Symbolic  Parameter 
DN1 


Default  Value 


none 


DN2 


none 


D12 


none 


D21 


none 


Description 

time-of -day/alter na- 
tive designation  for 
first  alternative 
to  be  compared:   XXY, 
e.g.,  PM3 

time-of -day/alterna- 
tive designation  for 
second  alternative 
to  be  compared:   XXY, 
e.g.,  PM4 

time-of -day/alter na- 
tive comparison  de- 
signation:  XXYZ  , 
e.g. ,  PM34 

time-of -day/alterna- 
tive comparison  de- 
signation:  XXZY, 
e.g.,  PM4  3 
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D2  2         identification  number 

of  first  MOE  to  be 
processed 


D8  8         identification  num- 

ber of  eighth  MOE  to 
be  processed,  if  any 

LUSE  YES        member  name  of  parti- 

tioned data  set 
PMMCO.UTCS.LUSE;  mem- 
ber should  contain 
control  card  and  data 
for  input  on  FORTRAN 
unit  5  in  program 
NETCON  (see  program 
documentation) 

PTIME  15        time  limit  (in  CPU 

minutes)  for  step 
POSTP 

The  only  other  required  input  cards  are  associated 
with  the  c@ntrol  card  for  the  link-specific  execution  of 
program  POSTPROC .   The  parameters  on  this  card  are  explained 
in  the  program  description  in  the  preceding  section.   The 
following  sample  setup  demonstrates  the  flexibility  of  the 
catalogued  procedure: 

//EXEC  POST,  DN1=PM3,DN2=PM4,D12=PM34,D21=PM4  3 
//D2=6,D3=7,D4=8 
//0N.SYSUT1  DD  * 
&PARAM  NMOE=3,LNKNT=l,TESTB=l,TWIND=3  &END 

In  this  example,  statistical  comparisons  are  made  between 
control  alternatives  3  and  4  for  p.m.  traffic  conditions. 
Link-specific  analyses  are  produced  for  three  MOE's: 
average  speed,  travel  time,  and  delay. 

Figures  28  and  29  show  the  basic  programs  for  proce- 
dures STRING  and  POST,  respectively. 
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//STRING  PROC  DDN=XXX,DINDG=DELFTE,DIBAR=DELETE,DG8AR=DELETE, 

//  DINDS=DELETE _____ 

//ON  EXEC  PGM=IEbGENER 

//SYSPRINT  DO  SYSOUT  =  A    _  

//SYSIN  DD  DUMMY 

//SYSUT2  DD  DSN=PMKCO.UTCS.LABS( -DON) ,LABEL={, , ,GUT) , 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=OLO, 

//  DCB=(RECFM=FB,LRFCL=80, BLKSIZE=80) f SPACE=( TKK  ,  i  1 , 1 ,  10) > 

//ZAP  EXEC  PGM=IEFBR14 

//Al    OD    OSN=PMMCO.UTCS.INDG_DDN,        _  

//    UNIT  =  SY_DA,ViJL  =  SER=GTHERS.DISP  =  (OLDtD_ELEVE,DELEfEr 

//A2    DO    DSN=PMMCO.UTCS.LUSF_DDN,  

//  UNIT=SYSDA,VaL=SER=OTHERS,DISP=(OLO,DELETE,DELETE) 

//A3  DO  DSN=PMMC0.UTCS.I3AR_DDN,  

//  UNIT=SYSDA,VUL=SER=UrHERS, D I SP^( OLD, DELETE, DELETE) 

_/_/A4  DO  DSN=PMMC0.UTCS.G8AR_0DN,   _  __  

//" UN  I T  =  SY SDA, VOL  =  SER  =  OT HER S,D I SP=( OLD, DELETE, DELETE) 

//A5  DD  DSN=PMMCG.UTCS.HEAO_DDN,       __  

//    UNIT  =  SYSDA,VOl.  =  SER  =  OrHERS,OISP-f  OL D, DELETE,  DELETE  ) 

//A6    DD    DSN=PMMCO-UTCS.INOS_DDN, 

//  UN I T= SY SOA, VOL= SE R=OT HER S,D I SP=< OLD, DELETE, DELETE) 

//B2  DD  DSN=PMMCO.UTCS.MOE2-0DN, 

//  UNIT=SY_DA,VOL=SER=GTHtRS,DlSP=<OLD,DELETE,DELETE) 

//B3  DD  0SN=PMMC0.UTCS.M0E3_DDN, 

//  UNIT=SYSDA,VOL=SER=CTHERS,DISP=(OLD,DELETE,DELETE) 

//B4  DD  DSN=PMMC0.UTCS.MUE4_DUN, 

//  UNIT=SYSOA,VOL=SER=UTHEkS,DISP=(OLD,DELETE,DELETE) 

//B5  DO  0SN=PMMC0.UTCS.M0E5_DDN, 

//  UNIT=SYSDA,VJL=_ER=OTHEkS,DISP=(OLD,DELETE,DELETE) 

//B6  DD  DSN=PMMC0.UTCS.rt0E6_DDN, 

//  UNIT=SYSDA,VOL=SEK=UTHFRS,DISP=IOLOtDELETEf DELETE) 

//B7  DD  DSN=PMMC0.UTCS.M0E7_00N, 

//  UN  I T  =  SY SDA, VOL  =  SE R=OTHERS,D I SP=( OLD, DELETE, DELETE) 

//B8  DD  DSN  =  PMMCG.UTCS..J10E8_DDN, 

//  UNIT^SYSDA,VGL=SER=QTHER3,0ISP=(0LD,DELETE,DELETE) 

//OLOUT  EXEC  PGM=OLGUT 

//STEPLIB  DD  DSN=PMMCO.JTCS-LfjA01,VOL  =  SER=CThERStDISP  =  SHR,UNIT  =  SYSDA 

//FT06F001  DD  SYSOUT-A 

//FTC9F001  DD  DSM=PMMCO.UTCS.CC IULUUT ) , 

//  UNIT=SYSDA,V0L=SER=0THFPS,DISP=SHR,LA8EL={ ,,,IN) 

//FT10F001  OD  DSN=PMM.CQ.UTCS.TEMP_DDN, 

//  UNIT=SYSOA,VOL=SER=OTHERS,DISP=SHR 

//FT11F001  DD  DSN=__TFMP1, 

//  UNIT=SYSDA,DISP=(NEW.PASS) , 

//    CCB= (RECFM=V6S,LRECL =4892, BLKSIZE^ 7294) , 

//    SPACE=(7294,( 100,9), RLSE) 

//FT12F001  DO  DSN=PMMCG.UTCS.NGBS(_DDN),LABEL=(, , ,GUT), 

//  UNIT=SYS0A,VOL=SER=GTHERS,DISP=OLD, 

//  DCB=(RECFM  =  FB,LRECL  =  80,BLKSI_.E  =  80)  ,  SP ACE= ( TRK  ,  (  1,1,10)  )   - 


Figure  28.   First  detector  data  process  procedure  STRING 
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//FT13F001  DO  DSN  =  PM.MCO„UTCS,  INDG£ODN, 

//  UNIT^SYSDA,VOL=SER=nTHER5,OlSP=<NE*,£DINDG,DELETE)  , 

//  CC B= ( RECF M= VB S,LRECL= 3244, BLKSIZE= 3248), 

//  SPACE=(3248,(1,1)  ) 

//FT14F001  DO  DSN  =  PMMCO.UTCS.LUSE£"ODN, 

//  UNir=SYSDA,VGL=SER=OTHERS,DISP=(NEW,KEEP) , 

//  DCB=(RECFM=V8S,LRECL=544,BLKSIZE=548) , 

//  SPACE=(548, (1,1)) 

//SORTl  EXEC  PGM=SORT,CGNU=(0,LT),PARM=•MSG=AP,CORE=lOOOO^• 

/'/SORTLIB  DO  DSN=SYSl.SORTLIB,DISP=SHR 

//SYSOUT  DO  SYSOUT=A 

//SGRTWKOl  DO  UN  I T=SYSD A , SPACF=( C YL ♦ ( 3 ) , ,CONT IG ) 

//SQRTWK02  DO  UN  I T  =  SYSDA , SPACE= ( CYL , ( 3) , , CONT I G ) 

//SORTWK.03  DO  UNIT=SYSDA,SPACE=(CYL,(3),,CGNTIG) 

//SYSIN  DO  DSN=PMMCO.UTCS.CC(SORTl) , 

//  UNIT=SYSDA,VOL=SEK=QTHERS,DISP=SHR,LABEL=(,,, IN) 

//SORTIN  DD  DSN=££TEMP1, DISP=(QLD, DELETE) ,UNIT=SYSDA 

//SORTGUT  DD  DSN=££TEMP2, 

//  UNIT=SYSDA,DISP=(NEW,PASS) , 

//  DCB=(RECFM  =  VbS,LRECL  =  -*892,BLKSIZE  =  7294)  , 

//  SPACF=(7294,( 100,9) ,RLSE) 

//PLUG  EXEC  PGfk,  =  PLUGNFT,CQND=(J,LT) 

//STEPLIB  DD  DSN=PMMCG.UTCS.L0AD1,V0L=SER=0THERS,DISP=SHR,UNIT=$YSDA 

//FT06F001  DD  SYSOUT=A 

//FT03F001  DD  SYSOUT^A 

//FT09F001  \JU    DSN=PMi*iCQ.U7CS.LuSc£DDN, 

//  UNIT=SYSDA,VOL=SER=CTHERS,DlSP*SHR 

//FT11F001  DD  DSN  =  PMMCG.UTCS.NGtiS(£DDN),LABEL=I  ,  ,  ,IN)  ,  V0L  =  SER=0THERS  , 

//  DISP=SHR,UNIT=SYSOA 

//FT12F001  DD-DSN=PMMCO.UTCS.LArtS(£OUN),LABEL=(,,  ,  IN)  , 

//  UMT=S'r  SDA,VUL  =  SER  =  OThERS,DISP=SHR 

//FT13F001  DO  DSN=££TF.MP2,DISP  =  (  JLD,  DELETE),  UNIT=SYSDA 

//FT14F001  00  DSN=PMMCO.UTCS. 18AR£DDN, 

//  UNIT  =  SYSDA,Vl!L  =  SER  =  OTHERS,DISP=<NFW,£DlBAR,DELETE)  , 

//  CCB=(RECFM  =  VBS,LRECL=7  56*,8LKblZE=729<*)  , 

//  SPACE=( 7294, (40,2), RLSE) 

//FT15F001  HD  OSN=PMMCO.UTCS.GBARtDDNt 

//  UNIT=SYSDA, V0L=SER=0ThE RS, 01 SP=(NFW,£DGBAR, DELETE) , 

//  CCB=(RECFM=VbS,LKECL=75b4,BLKSIZE=7294) , 

//  SPACE=(7294,(2, 1) ,RLSE) 

//FTlcFOOl  DO  DSN=££TEMP3, 

//  UNIT=SYSDA,DISP=(NEW,PASS) t 

//  CC B= ( REC F M  =  V6S,LRECL  =  <t 904, BLKSIZE= 7294)  , 

//  SPACE=(7294,(100,9) ,RLSE) 

//SCTRGM    EXEC    PGM=SCTRGM, CGND  = ( 0 , LT ) 

//STEPLIB    DD    DSN=PMMCG.UTCS.LUAD1,VGL=SER=0THERS,DISP=SHR,UNIT=SYSDA 

//FT06F001    DD    SYSOUT=A 

//FT09F001    00    DSN=PMMCO.UTCS.LABS(£DDN),LABEL=( , , ,IN), 

//    UNIT=SYSDA,VOL=SER=nTriERS,DISP=SHR 

//FT10F001     DD    DSN=PMMCO.UTCS.NUBS(£DON),LABEL=(t f , IN) ,  VOL  =  SER  =  OTHERS , 

//    DISP=SHR,UN1T=SYSDA 

//FTUFOOl    DO    OSN  =  PMMCO.UTCS.LUSE£ODN, 

//    UNIT=SYSDA,VOL=SER=OThERS,DISP=SHR 


Figure  28.   First  detector  data  process  procedure  STRING 

(continued) . 
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//FT12F001  DD  DSN=£6TEMP3 , 01 SP= { OLD f PASS ), UNI T=SYSDA 

//SORT2  EXEC  PGM=SGRT , CONO= ( 0 ,LT ) ,P AR ¥= • MSG=APt CORE=100GOO' 

//SORTLiB  DD  DSN^SYS 1 .SuRTL I B t Dl SP=SHR 

//SYSCUT  CD  SYSOUT=A 

//SORTwKOl  DD  UN  I T=S YSDA , SPACE^ ( CYL t ( 3 ) » ,CONT IG ) 

//SORTWK02  DO  UN  I T  =  S YSD A, SPACE= ( CYL , ( 3 ) ♦ , CUNT IG ) 

//S0RTWK03  DO  UN  I  T^SYSD A , SPACb= ( C YL , ( 3 ) , ,CONT IG ) 

//SYSIN  OD  DSN=PMMC0.UTCS.CC(S0RT2) , 

//  UNIT=SYSUA»VUL=SER=OTHEKS.DISP^SHR,LABEL=( t* t IN) 

//SCRTIN  DD  DSN=c£TEMP3, DISP=(GLD, DELETE) ,UNIT=SYSDA 

//SURTOUT  DD  CSN=£&TEMP^, 

//  UNIT  =  SYSDA,DISP=(NEW,PASS)  , 

//  CCB=(RECFM=VBS,LRECL=4904,BLKSIZE=7294) , 

//  SPACE=(7294,( 100,9), KLSE) 

//BRKFIL  EXEC  PGM=bRKF I L , COND= ( 0, LT ) 

//STEPLIB  DD  DSN=PMMCO.UTCS.LGADl,VUL  =  SER=^OTHJRS,DISf  =  SHR2UNIT=SYSDA 

//FT06F001  DD  S  YSOUT  =  A,  CC  B=BUFNO=  1  '""•"" 

//FT09F001  DD  DSN=PM*CO.UTCS  .  NUBS  (  6DDN  ) ,  L  ABEL=  (  ,  ,  ,  IN)  , VOL=SER=OTHERS . 

//  DC B=BUFN0=1,DISP=SHR, UNITES YSDA 

//FT10F001  DD  DSN=C&TEMP4,DISP=SHR,UNIT=SYSDAfDC5=BUFN0=i 

//FT11F001  DD  DSN=PMMCO.UTCS.hEAD€D0N, 

//  UNIT-=SYSDA,VOL  =  SER=0rHERSf  OISP  =  (NErttKEEPtDELETEI  t 

//~DCb={RECFM  =  VBS,LRE'CL  =  ^8,BLKSIZE=24  98,flUFN0=l)  , 

//  SPACE=(2498,  (2,  1)  ,W|_SE) 

//FT12F001  00  DSN=PMMCO.UTCS. INOSSDON." 

//  UNIT=SYSDA,V0L=SER=0THEkS,DISP=(NEWt6DINDS,DELETE) t 

//  CCb=(RECFM=VbS,LRECL=548,BLKSIZE=7294,BUFNG=l) , 

//  SPACE=I7294,(9, 1) ,RLSE) 

//FT13F001    00    0SN=PM"IC0.0TCS.M0E2£DDN, 

//    UNIT=SYSDA,VUL=SER=OTriERS,DISP=(NEW,KEEP,OELETE) , 

//    DCB=(RECFM=VBS,LRECL=548,6LKSIZE=7294,BUFNG=1) , 

//    SPACE=(7294,(9, 1),RLSE) 

//FT14F001  OD  DSN=PMMCQ.UTCS.M0E3£D0N, 

//  UNIT=SYSOA,VOL=SER=OTriERSt UISP=(NEWtKEEPfOELETE) , 

//  DCB=(RECFM=VBS,LRECL=548,BLKSIZE  =  729<t,BUEN'J  =  l)  , 

//  SPACE=(7294, (9, 1) ,RLSE) 

//FT15F001  00  DiN=PM«CU.UTCS.M0E4&DDN, 

//  UNIT=SYSDA,VCL=SER=OTHERS,DISP=(NEw,KEEP,DELETE) , 

//    DCB  =  (RECFM=VBSf  LRECL=54dt  BLi^SIZE  =  7294f  flUFNO  =  l)  , 

//     SPACE=(7294, (9, 1)  ,RLSE) 

//FT16F001  Dl)  0SN=PMMCQ.UTCS.MGE5£DDN, 

//  UNIT=SYSDA,VOL=SER=OThERSi D I SP=< NEW t KEEP, DELETE) , 

//  DCB=(RECFM=VBS,LRECL=54  8,BLKSIZE=7294,BUFNa=l) , 

//  SPACE=(7294, (9,  1) ,RLSE) 

//FT17F001  DO  OSN=PMMC0.UTCS.MOE6£00Nt 

//  UNIT=SYSDA,VUL=SER=OrHERS,OISP^(NErt,KEEP,DtLETE) , 

//  CC6=(RECFM^VBS,LRECL=540,BLKSIZE=7294,BUFNO=1), 

//  SPACE=(7294, (9, i) ,PLSE) 


Figure  28.   First  detector  data  process  procedure  STRING 

(continued) . 


12  3 


//FT18F001  DD  DSN=PMMC0.UTCS.M0E7£DDN , 

//  UNIT=SYSDA,VOl=SER=OTHFRS,DISP=(NEW,KEEP,DELETE) , 

//  DCB=(RECFM=VBS,LRECL=D4  8,bLKSIZE=7294,BUFNU=l) , 

//    SPACEM7294, (9, 1) , RLSE) 

//FT19F001    DO    DSN=PMMCG.UTCS.MUE8£DDN, 

//    UNI T=SYSDA,VGL=SER=aTHERS,D I SP=< NEW, KEEP, DELETE) , 

//    DCB=(RECFM=VBS,LRECL  =  f>48,BLKSIZE  =  7294,BUFNO=l) , 

//  SPACE=I7294, (9,  1) ,RLSE) 

//ENDPRNT  EXEC  PGM=ENDPRNT ,COND= ( C, LT ) 

//STEPLIB  DD  DSN=PMMCO.UTCS.LOADl,VOL=SER=CTHERS,DISP=SHR,UNIT=SYSDA 

//FT06F00L  DD  SYSOUT=A 

//FT09F00L  DD  DSN=PMMC J. UTCS.NOBS (£DDN ) , L ABEL= ( , , , IN) , VOL=SER=OTHFRS , 

//  DISP=ShR,UNIT=SYSJA 

//FTlOFOOl  DD  OSN=PM:-1CO.UTCS.LUSE£D'ON, 

//  UNIT=SYSDA,VGL=SER=OTHERS,DISP=SHR 

//FT11FO01  DD  DSN=PMMCO.UTCS.HEAD£DONt 

//  UNIT=SYSDA,VOL=SER=QTHERS,niSP=SHR 

//FT12F001  DD  DSN«PMMCO. UTCS . MOE 2&DON , 

//  UNIT=SYSDA,VUL=SER=OTHERS,UISP=SHR 

//FT13F001  DD  DSN=PMMCU. UTCS. MOE BuDDH , 

//  UNIT=SVSDA,VUL=SER=OTnERS,DISP=SHR 


Figure  28.   First  detector  data  process  procedure  STRING 

(continued) . 
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//POST  PRDC  DNl  =  A,DN2  =  6,D12  =  C,D2l=D,D2=2,D3=3,04=<,, 05=5, 06=6, 

//  D7=7,Db=8,LUSE=YES,PTIME=l5 

//ON  EXEC  PGM=IEBGENER 

//SYSPRINT  DD  SYSOUT=A 

//SYSIN  00  DUMMY 

//SYSUT2  DO  DS\=PMMCG.UTCS.CC(PUST)  ,UN  I  T  =  SYSDA , VOL  =  SER=OTHERS ,01  SP  =  OLD, 

//  LAbEL=( ,, ,OUT) 

//ZAP  EXEC  PGM=IEFBR14  

//Dl  DO  DSN=PMMC0.UTCS.LUSG£D12, 

//  UNIT=SYSDA,VOL=SER.  =  OTHERS,DISP=(OLD,DELETE,DELETE) 

//D2  00  DSN=PKMC0.UTCS.VGLLD12, 

//  UNIT=SYS0A,VOL=SER=OTHERS.DISP=(OLD,DELETE,DELETE)    

7/03  DD  DSN=PMMCG.UTCS. VGL&D2  1, 

//  UNIT=SYSDA,VOL=SEk=OTHERS,DISP=(GLD, DELETE, DELETE)  

//04  DD  DSN=PN,MCO.UTCS.SRT3dU12, 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=(ULD,  DELETE,  DELETE)        

//D5  DO  DSN=PMMC0.UTCS.SRT3LD21, 

/_/  UNIT=SYSDA,VOL=SER=OTHERS,DISP=(OLO,DELETE,DELETEJ 

//07  00  DSN=PMMC0.UTCS.0BUS&D12, 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=(OLD, DELETE, DELETE) 

//NETCUN  EXEC  PGM=NETCON 

//STEPLIB  DD  DSN=PMMC0.UTCS.L0AD2,DISP=SHR,V0L=SER=0THERS,UNIT=SYSDA 

//FT06F001  DD  SYSOUT  =  A 

//FT1CF001  DD  DSN=PMMCG.UTCS.N0BS(£DN1),0ISP=SHR,V0L=SER=0THERS, 

7/  UNIT=SYSDA,LABEL=(, , , IN) 

//FT11F001    DD    DSN  =  PMMC0.UTCS.NGBSUDN2),DISP=SHR,V0L  =  SER  =  0THERS, 

//    UNIT=SYSDA,LAHEL=( , , , IN) 

//FT12F0U1  DD  DSN=PMMCO. UTCS . LUSE &DN1 ,DI SP=SHR , VOL=SER=OTHERS , 

//  UNIT=SYSDA 

//FT13F001  DD  DSN=PMMCO. UTCS .LUSEC0N2 ,DI SP=SHR , V0L=SER=UTHERS , 

//  UNIT=SYSDA 

//FT15F0U1  DD  DSN=PMMCO.UTC S. LUSG&D 12 , 

//  UN  I T=SYSDA,VUL  =  SER  =  OTHERS,DISP=( NEW, KEEP, DELETE ) , 

//  CCB=(RECFM=VBS,LRECL=344,BLKSIZE=548) , 

//  SPACE=(54B,( 1, L) ) 

//FT16F001  OJ  DSN  =  PM1CG.UTCS.HEA0£.DN1  ,01  SP=SriR,  VGL  =  SER=OTHERS  , 

//  UNIT=SYSDA 

//  DD  DSN=PMMC0.UTCS.hEADCDN2,DISP=SHR,VGL=SER=0THERS,UNIT=SYSDA 

//FT17F0J1  DD  DSN  =  PMMC0.UTCS.MuE2£.DNl  , DI SP=SHP , VGL=SER= OTHERS , 

//  UNIT=SYSDA 

//DO  DSN=PMNC0.UTCS.M0E2&0N2,DISP=SHR,V0L=SER=GTHERS,UNIT=SYSDA 

//FT1BF001  DO    CSN=PMMC0.UTCS.V0L£012, 

//  UNIT=SYSDA,VGL=SER=OTHERS,OISP=(NE*,KEEP,DELETE)  , 

//  DCB=(RECFM  =  VBS,LRECl  =  2d,t3LKSlZE=1061), 

//  SPACE=(106l, (3,1)) 

//FT19F001  DO  D$N=PMMC0.JTCS.V0L£.021, 

//  UNIT=SYSDA,V0L=SER=OThtkS,DISP=<NEW,KEEP,DELETE) , 

//  DCB=(RECFM=VBS,LR=CL=2  0,BLKSIZE=1061) , 

//  SPACE=( 1061,(3, 1) ) 

//FT05F001  DO  DSN=PMMCG.UTC S . LUSE ( £LUSE ) , 

//  UNIT=SYSDA,VGL=SER=JTHERS,DISP=SHK,LA6EL=( ,, , IN) 


Figure  29.   Second  detector  data  process  procedure  POST 
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//S0RT3  EXEC  PGM=SUR T , PARM= • MSG=AP, COHE= 1 00000 • ,COND= { 0, LT) 

//SORTLIB  DD  CSN=SYSl.SCKTLie,DiSP=SHR 

//SYSOUT  DO  SYSCUT=A 

7/S0RTWK01  DO  UN'lt=SYS"DA|$>ACE=TCYL  t(3>,  ,,CONTIGI 

//SCRTWK02  DO  UN  I T  =  S YSO A, SPACE= { CYL , < 3 ) , , CONT 1G ) 

//SCJRTWK03  00  UNIT=SYS0A,SPACE=(CYL,(3), ,CGNTIG) 

//SYSIN  DO  DSN=PKMC0.UTCS.CC(S0RT34), 

//  UNIT=SYSUA, VGL=SER=OTHERS,DlSP=SHR,LABEL=( »tt IN) 

//SORTIN  DO  0SN=PMMCQ. UTC S . V0L&D12, 01 SP= ( OLD , DELETE, DELETE)  , 

//  UNIT=SYSDA,VGL=SER=OTHERS 

//SORTOUT  DO  DSN=PMMC0.UTCS.SRT.36Dl'2.t 

//  UNIT^SYSDA,V0L=SER=GTHERS,DISP=(NErt,KEEP,DELETE) , 

//    DCBMRECFM  =  VBS,LRECL  =  28,BLKSUE=i061)  , 

//    SPACE=( 106L, (3,1)) 

//S0RT4  EXEC  PGM=SORT , PARK= ■ MSG=AP, C0RE= 100000%  C0ND= ( 0 ,LT) 

//SORTLIb  DD  DSN=SYS1.SGRTLIB,DISP=SHR "" 

//SYSOUT  DD  SYS0UT=A 

//SORTWK01  DO  UNIT=SYSDA,SPACE=(CYL,(3), ,CCNTIG) 

//SORT*K02  DD  UN IT=S YSDA , SPACE= ( CYL , ( 3) , ,CONT IG ) 

//SORTWK03  00  UN  I T  =  S YSD A , SPACE= ( C YL , ( 3 ) , ,C0NT IG ) 

//SYSIN  OD  0SN=PMMC0.UTCS.CC(S0RT34), 

//  UNIT=SYSDA,VOL=SER^OTHERS,DISP=SHR,LABEL=(  ,V,  IN)" 

//SORTIN  DD  DSN=PMMCO. U TCS. V0L&D2 1 , Dl SP= ( OLD , DELETE, DELETE) , 

//  UNIT=SYSDA,VGL=SER=CTHEKS 

//SORTGUT  DD  DSN=PMMCO.UTC S. SRT3CU2 1 , 

//  UNIT=SYSDA,VGL  =  SER  =  GThEKi>,DISP=(NEW,KEEP,UELETE)  , 

//  DCB={RECFM=VBS,LRECL=2J,BLKSIZE=1061) , 

//  SPACE=(1061t (3,1)) 

//PREPST  EXEC  PGM=PREPGST,COND=(0,LT) 

//STEPLIB    DO    0SN=PMMC0.UTCS.L0AD2,DISP=SHR,V0L=SLR=0THERS,UMT=SYSDA 

//FT06F001  DD  SYSGUT=A 

//FTlOFOCl"DD    DSN=PMMCU.UTCS.N0BSUDN1)  ,  D  I  SP=  SHR,  V0L=SER=0THERS  , 

//    UNIT=SYSDA,LABEL=(, ,  ,  IN) 

//FT11FJ01  DD  DSN=PMMC0.UTCS.N08S(60N2) , DI SP=SHR , VGL=SER=0THERS , 

//  UNIT=SYSDA,LABEL=( , ,  ,  IN) 

//FT15F001    00    DSN=PMMCG.UTCS.SRT3£D12,DISP=SHR,VGL=SER=0THERS, 

//  UNIT=SYSDA 

//FT16F001  DD  DSN=PMMCG. U TCS . SRT3&D21 ,01 SP=SHR , VUL=SER=OTHERS , 

//  UNIT^SYSDA 

//FT18F001  DD  DSN=PMMCO.uTCS .0BUSCD12  , 

//  UNIT=SYSDAfVGL=SER=OThERS,DISP=<NLW»KEEP»OELETE) , 

//  DCB=(RECFM=VBS,LRECL=1G4,BLKSIZE=108), 

//  SPACE=(108,(  1,1)) 

//C0NDNS1  EXEC  PGM=C0N0NS 

//STEPLIB  DO  DSN=PMMC0.UTCS.LGAD2, 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=SHR 

//FT06F001  DD  SYSOUT^A 

//FT08F001  00  DSN=PMMC0.OTCS.LABS(tCNl) , 

//  UNIT=SYSDA,VGL=SER-GTHERS,01SP-SHR,LABEL=( , , , IN) 

//FT09F0U1  00  DSN=PMMCiJ.UTC'S.AGGRC, 

//  UNIT=SYSDA, VOL=SER=GTHERS,0lSP^0L0 


Figure  29.   Second  detector  data  process  procedure  POST 

(continued) . 
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77FT10F001  DD  DSN=PMMC0.UTCS.LUSG£D12 t 
//  UNIT=SYSDA,VOL=SER=OThERS,DISP=SHR 

//FT11F001  DD  DSN=PMMCG.UTCS.NUBS(£DN1),LABEL=(, , , IN) , 
//  UNI T=SYSDA,VOL=SER=CT HEPS, DISP=SHR 
//FT12FOG1  DD  DSN=PMMCn.UTCS.M0E2£DN 1  , 
//  UNIT=SYSDA,VOL=SER=OThERS.DISP=SHR 
7/FT13F001  DO  DSN  =  PMMCn.UTCS.MOE4(.DNl, 
//  UNIT=SYSDA,VGL=SER=GTHERS,DISP=SHR 
//FTlAFOOl  DD  DSN=PMMCO.  UTCS.  MGE5£DN1  , 
//  UNIT=SYSOA,VGl=SER=GTHERS,DISP=SHR 
7/FTli>FU01  DD  DSN=PMMCG.UTCS.MQE7£DN1, 
//  UNIT=SYSDA,VGL=SER=OTHERS,DISP=SHR 
//FT16F001  DD  DSN=PMMCG. UTCS. MOE 3£DN1  , 
//  UNIT=SYSDA,VOL=SER=OTHERS,DlSP=SHR 

//FT17F001  DO  DSN=££Q£DN1,UNIT=SYSDA, DISP=(  ,PASS)  , SPACE =( TRK,  (1,1)")  , 
//  DCB=(RECFM=VBS,LRECL=38,BLK$IZE=1061) 

//FT18F001  DD  DSN=££S£DN 1 , UNI T=SY SD A, SPACE= ( TRK , ( I , 1 ) ) , 
//  DCB=(RECFM=VBS,LRECL=38,BLKSIZE=10ol),DISP=( , PASS) 
//FT19F001  DD  OSN=££T£DM  ,UM  T  =  SY  SDA,  SPACE=(  TRK,  (  L  ,  L)  I  ,"" 
//  DCB=(RECFM=V6S,LRECL=38»3LKSIZE=1061),DISP=( ,PASS) 
//FT23F001  DD  DSN=££D£DN1 ,UNI T=SYSDA, SPACE=(TRK , ( 1 , I ) ) , 
//  DCB=(RECFM=V6S,LRECL=83,BLKSIZE=10  61),DISP={ ,PASS) 
//FT20F001  DD  DSN= ££LUS£DN 1, UN  I T  =  SY SDA , SPACE= ( TRK , ( 1 , 1 ) )  , 
//  CC6=(RECFM=VBS,LRECL  =  <V4,BLKSIZE=48),DISP=(,PASS) 
//FT2iFOGl  DD  DS?\i=££LAB£DiMl ,  UN  I  T=  SY  SOA  ,  SPACE-  (  TRK  ,  (  i  ,  1 )  )  , 
//  DCB={RECFM=FB,LRECL=8  0,BlKSIZE=8  3O),DISP=( ,PASS) 
//CONDNS2  EXEC  PGM=CONDN5 
//STEPLIB  DD  DSN=PMMCO.UTCS.lGAD2, 
//  UN1T=SYSDA,V0L=SER=GTHERS,DISP=SHR 
//FT06F001  DD  SYSOUT=A 

//FT08F001  DD  DSN=PMMCG.UTCS.LAbS(£DN2> , 
//  UNIT=SYSDA,VCL=SER=OTHERS,DISP=SHR,LABEL=( ,, , IN) 
//FT09F001  bD  CSN=PMrfCG.UTCS.AGGRC, 
//  UNIT-SYSDA,VOL=SER=OTHERS,DISP=OLD 
//FT10FOG1  DD  DSN=PM-1CU.UTCS.LUSG£D12, 
//  UNIT=SYSDA,VGL=SEK=CThERSiDISP=SHK 

//FTilFOOl  DO  DSN=PMV1C0.UTCS.NGBS(£DN2)  ,LABEL=(,  ,  ,IN)  , 
//  UNIT=SYSDA,VOL=SEK=OTHEkS,DISP=SHR 
//FT12F001  DO  DSN=PMrtCG.UTCS.MGE2£DN2, 
//  UNIT=SYSDA,VCL=SER=OTHERS,DISP=SHR 
//FT13F001  DO  DSN=PM.XCU.UTCS.M0E4£DN2, 
//  UMir=SYSDA,VCL=SER=GThERS,DISP=SHR 
//FT14F001  DD  DSN=PMMCO. UTCS.MGE5£DN2  , 
//  UNlT=SYSDA,VGL=SFR=OTHERS,DISP=SHR 
//FT15F001  DD  DSN=PMMCO.UTCS .MUE7£DM2  , 
//  UNIT=SYSDA,VGL=SER=GTmERS,DISP=SHR 
//FT16F001  DO  DSN=PM'-1CO.UTCS.MGE8£DN2, 
//  UNIT=SYSDA,VGL=SER=GThERS,DISP=SHK 

//FT17F0O1  DO  DSN=££Q£DN2,UNIT=SYSDA,DISP=(,PASS) , SPACE =( TRK, (1,1) ) , 
//  DCB=(RECFM=VBS,LRECL=88,BLKSIZb=10ol) 


Figure  29.   Second  detector  data  process  procedure 

(continued) . 
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T7TT18F001  HO  DSN=££ 
//  DC8=(RECFM=VBS,LR 
//FT19F001  00  DSN=££ 
//  DC8=(RECFM=VBS,LR 

7/FT23F001  DO  DSN=££ 
//  DCB^(RFCFM=VBS,LR 
//FT20F001  DO  DSN=££ 
//  DCB=(RECFM=VBS,LR 
//FT21F001  DO  DSN=££ 

_//  DCB=(RECFM=FB,LRE 
//POSTAG  EXEC  PGM=PO 
//STEPLIB  DO  DSN=PMM 

7/  UNIT=SYSDA,VOL=SE 
//FT06F001  DD  SYSOUT 
//FTllFOOl  DO  DSN=££ 

_//FT12F00l  DD  OSN=££ 
//FT13F001  DD  DSN=PM 

_//  UNIT=SYSDA,VUL=SE 
//FT15F001  OD  DSN=££ 
//  DD  DSN=££r£DNl,UN 
//  DD  DSN=££Q£DNl,UN 
//  DD  DSN=££S£DN1,UN 
//FT16F001  DD  DSN=££ 
//  DD  0SN=&£T£DN2,UN 
//  DD  DSN=££Q£DN2,UN 
//  DO  DSN=££S£0N2,UN 
//FT05F0G1  DD  DSN=PM 
//  UNIT=SYSDA,VGI=SE 
//  DO  DSN=PMMCO.UTCS 
//  UNIT=SYS0A,V0L=3E 
//  OD  DSN=PMMCO-UTCS 
//  UNIT  =  SYSf)A,V(JL  =  SE 
//  DO  DSN=PMMCO.UTCS 
//  UNIT=SYSDA,VUL=SE 
//  DD  DSN=PVMCO.UTCS 
//  UNIT=SYSDA,VUL=SF 
//  00  DSN=PMMCC.UTCS 
//  UNIT=SYSDA,Vni=SE 
//  00  DSN=PMMCO.UTCS 
//  UNIT=SYSDA,VOL=SE 
//  DD  DSN=PMMCO.UTCS 
//  UNIT=SYSCA,VOL=SE 
//  DD  DSN=PMMCO.UTCS 
//  UNIT=SYSDA,VOL=SE 
//  DD  DSN=PN'MCU.UTCS 
//  UNIT=SYSDA,VOL=SE 
//POSTP  EXEC  PGM=POS 
//STEPLIB  OD  OSN=PMM 
//FT06F001  OD  SYSOUT 
//FT12F001  DD  DSN=PM 
//  UNlT=SYSDA,VOL=SE 


S£DN2,UNIT= 

ECL=88,BLKS 

T£DN2,UNIT= 

ECL=88.BLKS 

D£DN2,UN1T= 

ECL=88,BLKS 

LUS£0N2,UNl 

ECL=44,BLKS 

LAB£0N2,UNI 

CL=80,BLKSI 

STPROCTIME 

CO.UTCS.LOA 

R=CTHERS,DI 

=A 

LA6£DN1,UNI 

LUS£DN1,UNI 

MCO.UTCS.OB 

R=OTHERS,Dl 

D£DN1  ,UNIT= 

IT=SYSDA,DI 

IT=SYSDA,DI 

IT=SYSDA,DI 

D£DN2,UNIT= 

IT=SVSDA,DI 

IT=SYSDA,CI 

IT=SYSDA,DI 

M  C  0  •  0  T  C  S  •  C  C 

R=OTHERS,DI 

.LABSUDN1) 

R=OThEKS,DI 

.LABSUDN2) 

R=GTHERS,Dl 

.N08S(£DN1) 

R=OTHERS,DI 

.NDBS(£DN2) 

R=OTHERS,DI 

.CC( NUMAG) , 

R=OThERS,Dl 

.MLABS(KB) , 

R=OTHERS,OI 

•MLABS(M7) , 

R=OTHERS»DI 

.MLA8S(fr4) , 

R=GTKERS, 01 

. MLAbS(Mb) , 

R=OThERS,DI 

TPRCC,TIME= 

Cn.OTCS.LOA 

=  A 

MCO.UTCS.LU 

R=UTHERS,DI 


SYSDA, 

IZE=10 

SYSDA, 

IZE=10 

SYSDA, 

IZE=10 

T=SYSD 

IZF=48 

T=SYSO 

ZE=8D0 

=(6,0) 

D2, 

SP=SHR 

T=SYSD 

1=SYS0 

US£D12 

SP=SHR 

SYSDA, 

SP=(OL 

SP=<GL 

SP={OL 

SYSDA, 

SP=(UL 

SP=(OL 

SP=(OL 

(PGSTA 

SP=SHR 

» 

SP=SHR 

SP=SHR 

SP=ShR 

SP=SHR 

SP-SHK 

SP^SHR 

SP=SHR 

SP=SHR 


)  ) 


SPACE=(TRK,(  win, 
61)  ,0ISP=(,PASS) 
SPACE=(TRK,{ 1,1) ) , 
6l),DISP=(,PASS) 
SPACE=(TRK, 11,1)), 
61)  ,D1SP={ ,PASS) 
AfSPACE={TRK,(l,ll 
),DISP=( ,PASS) 
iA,SPACE=(TRK,(  1,1)), 
),DISP=( ,PASS) 
,CCND=(0,LT) 


A, 0ISP=(OLD, DELETE) 
A, DISP=(OL0, DELETE) 


OISP=(OLD, DELETE) 

D, DELETE) 

0, DELETE) 

D, DELETE)  _ 

DISPMOLD,  DELETE) 

0, DELETE) 

D, DELETE) 

0, DELETE) 

G  i  , 

,LABEL=( ,,, IN) 

,LABEL=( ,,, IN) 

,LA3EL=(, ,, IN) 

,LABEL=( , ,, IN) 

,LABEL=( , ,, IN) 

,LABEL=( , , , IN) 

,LaBEL=( , ,,IN) 

,LABEL=(, ,, IN) 

,LABEL=( , ,, IN) 


SP=SHR,LABEL=( 

(£PTIM 

02,DIS 


,  IN) 
E,0) ,COND=(0,LT) 
P=SHR,VOL=SEK=GTHERS,UNIT=SYSDA 


SG£D12, 

SP={ OLD, DELETE, DELETE) 


Fiaare  29. 


Second  detector  data  process  procedure  POST 
(continued) . 
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//FT13F001 

7/  UNIT^SY 
//FT15F001 
//  UNIT=SY 
//  DO  DSN  = 
//  00  OSN= 
//    OD    DSN  = 

'//  DO  OSN  = 
//  DD  DSN= 
//  OD  DSN= 
//FT16F001 
//    UN1T=SY 

_//  00  DSN= 
//  DD  DSN= 
//    DD    DSN= 

7/  DD  DSN= 
//  DD  DSN= 
//    DD    DSN= 

7/FT05F001 
//  UNIT=SY 
//  DD  DSN= 
//  UNIT=SY 
//  00  DSN= 
//  UNIT=SY 
//  DD  DS.\= 
//  UNIT=SY 
//  DD  USN= 
//  UNIT=SY 
//  DD  DSN= 
//  UNIT=SY 
//  DD  USN= 
//  UNIT=SY 
//  DO  DSN= 
//  UNIT=SY 
//  DD  DSN= 
//  UMT  =  SY 
//  DD  DSN= 
//  UNIT=SY 
//  DD  DSN= 
//  UNIT=SY 
//  DO  USN= 
//  UNIT=SY 
//  DO  DSN  = 
//    UNIT=SY 


DO  DSN 
SDA.VOL 

DD  DSN 
SDA,VOL 
PMMCO.U 
PMMCO.U 
PMMCO.U 
PMMCO.U 
PMMCO.U 
PMMCO.U 

DD  DSN 
SDA.VCL 
PMMCO.U 
PMMCO.U 
PMMCO.U 
PMMCO.U 
PMMCO.U 
PMMCO.U 

DD  DSN 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VCL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCO.U 
SDA.VOL 
PMMCC.U 
SDA.VUL 


PMMCO. 
SER=OT 
PMMCO. 
SER=CT 
CS.MOE 
CS.MOE 
CS.MOE 
CS.MOE 
CS.MOE 
CS.MOE 
PMMCO. 
SER=OT 
CS.MOE 
CS.MUE 
CS.MUE 
CS.MOE 
CS.MOE 
CS.MOE 
PMMCO. 
SER=OT 
OS.  LAD 
SER=OT 
CS.LAQ 
SER=OT 
CS.N03 
S6R=0T 
CS. NOB 
SEk=OT 
CS.CCl 
SER=OT 
CS.MLA 
SER=GT 
CS.MLA 
SEk=GT 
CS.MLA 

SER=or 

CS.MLA 
SER=OT 
CS.MLA 
SER=OT 
CS.MLA 
SER=OT 
CS.MLA 
SER=OT 


UTCS.OS 

HERS, 01 

UTCS.MO 

hERS.DI 

6D3tONl 

CC4*.0N1 

£D5tDNl 

&C6C0N1 

&076DN1 

LDBtDNl 

UTCS.MO 

HERS, CI 

6036DN2 

&D4&DN2 

&DSCDN2 

t.06£DN2 

£D7£DN2 

LD8&DN2 

UTCS.CC 

HERS.DI 

S(CDNl) 

HERS, 01 

SUDN2) 

HERS.DI 

SUDNl) 

HERS.DI 

SUDN2) 

HERS.DI 

NUM)  , 

HERS.DI 

BS(MfcD2 

HERS.DI 

BS(Mt»D3 

HERS.DI 

BSIM&D4 

hERS.DI 

BS(M6D5 

HERS, HI 

BSIMCD6 

HERS, D I 

riS(M£.D7 

HERS.DI 

6SIM&D8 

HERS.DI 


US£D12 
SP=(OL 
ELD2CD 
SP=SHK 
,UNIT= 
,UNIT= 
,UNIT= 
,UNIT= 
.UNIT= 
tUNIT= 
E&D2&D 
SP=SHR 
,UNIT= 
,UNIT= 
,UNIT= 
tUNIT= 

,unit= 

,UNIT= 
(POST) 
SP=SHR 


0, DELETE, DELE 
Nl, 

SYSDA,VOL=SER 
SYSDA,VOL=SER 
SYSDA,VOL=SER 
SYSDA,VUL=SER 
SYSOA,VOL=SER 
SYSDA,VOL=SER 
N2, 


TE) 


=OTHERS. 
=OTHERS, 
=OTHERS, 
^OTHERS, 
=OTHERS. 
^OTHERS, 


DISP: 

DISP  = 
DISP  = 
DISP^ 
DISP^ 
DISP^ 


SHR 
SHR 
SHR 
SHK 
SHR 
SHR 


SYSDA,VOL=SER 
SYSDA,VOL=SER 
SYSDA,VOL=SER 
SYSDA,VOL=SER 
SYSDA,VOL=SER 
SYSDA,VOL=SER 


=OTHERS, 
=CTHERS, 
=OTHERS. 
=OTHERS, 
=OTHERS, 
=OTHERS, 


DISP= 
DISP^ 

DISP: 

DISP= 
DISP: 
DISP^ 


ShR 

SHR 
SHR 
SHR 
SHR 
SHR 


,LABEL=( 


SP=SHR,LABEL=( 

SP=SHR,LABEL=( 

SP=SHR.LABEL=( 

» 

SP=SHR,LABEL=( 

SP=SHP,LABEL=( 

)  . 

SP=SHR,LABEL=( 

it 

SP=SHR,LABEL=( 

), 

SP=SHR,LABEL=( 

)  , 

SP=SMR,LABEL={ 

) , 

SP=SHR,LABEL=( 

). 

SP=SHR,LABEL=( 

). 

SP=SHK.LABEL=( 


,IN) 


,  IN 
,  IN 
,  IN 
,  IN 
,  IN 
,  IN 
,  IN 
,  IN 
.  IN 
.  IN 
,  IN 
,IN 


Figure  29. 


Second  detector  data  process  procedure  POST 
(continued) . 
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APPENDIX  B 
DATA  COLLECTION  PROCEDURES  AND  FORMS 
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DATA  COLLECTION  PROCEDURES  AND  FORMS 


INTRODUCTION 

This  appendix  provides  details  of  the  field  data  col- 
lection procedures  and  forms  for  the  moving  car  studies  and 
the  bus  priority  studies.   The  information  expands,  as 
applicable,  on  that  provided  in  the  chapter  on  SITUATION 
AND  APPROACH  presented  in  Volume  1.   In  addition  to  the 
basic  information  provided  herein,  verbal  instruction  and 
field  practice  tests  were  used  for  the  more  complex  tasks 
such  as  the  intersection  bus  timing  procedure  and  the  use 
of  the  Greenshield ' s  Traffic  Analyzer. 


MOVING  CAR  DATA  COLLECTION 

The  following  instructions  were  provided  to  the  drivers 
of  the  vehicles  equipped  with  the  analyzers.   Supplemental 
equipment  and  instructions  were  provided  for  the  manual 
collection  effort. 

These  instruction  are  designed  to  assist  each  driver 
in  acquiring  the  best  possible  travel  time  data  to  be  used 
in  evaluating  the  UTCS/BPS  traffic  control  system.   Four 
routes  have  been  selected  for  data  collection  in  this 
project.   Two  routes  are  exclusively  on  primary  arterials 
and  are  divided  into  two  route  notations  by  routes  and 
random  routes  representing  a  loop-type  design.   The  informa- 
tion received  from  the  data  that  each  of  the  drivers  will 
collect  while  traveling  on  the  routes  will  be  utilized  by 
the  study  team  in  the  evaluation  of  the  UTCS/BPS  system. 

Each  automobile  is  equipped  with  a  Greenshield ' s  Traf- 
fic Systems  Analyzer.   Each  analyzer  records  the  following 
information;  speed  change,  distance,  and  time. 

It  is  anticipated  that  each  driver  will  travel  each 
route  a  minimum  of  four  times  for  each  of  the  three  periods, 
that  is,  morning,  midday,  and  evening.   Each  driver  is 
required  to  follow  the  route  exactly  as  it  is  laid  out 
without  variation.   Before  starting  each  run,  the  driver 
will  perform  the  following  tasks: 

.  Plug  analyzer  power  cord  in  the  cigarette 
lighter  outlet. 

.  Check  to  be  sure  there  is  sufficient  tape  on 
the  roll  to  complete  route.   Each  roll  should 
last  approximately  one  week  with  normal  use. 
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.  The  automatic  tenth-of-a-mile  print  switch  is 
turned  off.   The  analyzer  has  been  reset  to 
zero  and  turned  off. 

.  You  have  recorded  on  the  paper  tape  the  date, 
the  route  number,  the  direction,  when  appli- 
cable, the  run  number,  and  the  starting  time 
for  each  run. 

.  Driver  will  begin  each  run  at  the  prescribed 
starting  point. 

.  When  the  run  is  begun,  the  driver  will  turn  the 
machine  on  as  he  crosses  the  starting  point 
and  depress  the  print  button. 

.  After  depressing  the  print  button,  the  driver 
will  advance  the  tape  by  hand  two  to  three 
notches  on  the  machine.   This  is  to  gap  the 
print  on  the  tape  and  identify  each  check  point. 

As  a  driver  drives  along  the  pre-defined  route,  the 
following  instructions  are  to  be  followed: 

1.  At  no  time  will  the  driver  exceed  the  speed  limit 
of  30  miles  per  hour  unless  he  is  in  the  middle 
of  a-  moving  platoon  and  it  would  be  unsafe  to 
reduce  his  speed.   If  the  driver  is  driving  on 
the  street  alone,  he  will  not  exceed  30  miles  an 
hour. 

2.  While  driving  the  route,  whichever  lane  you  have 
selected,  each  driver  should  remain  in  that  lane 
and  should  avoid  unnecessary  lane  change  or 
weaving  from  lane  to  lane . 

3.  If  you  are  caught  behind   a  left-turning  vehicle, 
for  example,  you  will  wait  in  that  lane  until 
this  vehicle  has  cleared  the  intersection. 

4.  Each  driver  will  depress  the  print  button  whenever 
he  comes  to  a  full  stop,  regardless  of  why.   He 
will  depress  the  print  button  at  the  point  in 
which  he  starts  moving  again. 

5.  Each  time  you  cross  the  stop  bar  or  link  discharge 
point  as  defined,  the  driver  will  depress  the 
print  button  and  manually  advance  the  tape  two  or 
three  notches  to  create  a  gap. 
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6.  Since  each  delay  entails  two  manual  button  depres- 
sions or  two  print-outs  and  the  discharge  point 

is  recorded  as  one  print-out,  there  will  always 
be  an  odd  number--for  example,  one,  three,  five, 
or  nine--entries  between  each  manual  pull  of  the 
tape. 

7.  Each  driver  will  continue  pressing  the  print-out 
button  at  each  discharge  point  and  each  time  he 
stops  and  starts  until  the  route  is  completed. 

8.  When  the  route  has  been  completed,  the  driver  will 
park  in  a  safe  place,  manually  pull  the  tape  out 

a  sufficient  distance  to  separate  each  run,  and 
perform  the  initial  check  points  as  previously 
described. 

9.  At  the  end  of  each  time  period,  the  tape  is  removed 
from  the  machine,  folded  neatly,  and  placed  in  an 
envelope  on  which  will  be  recorded  the  date,  the 
time  period,  and  the  route  number  with  each  driver 
initialing  the  envelope.   These  envelopes  are  to 

be  turned  in  at  the  conclusion  of  each  day  to  the 
field  crew  supervisor. 

The  drivers  are  to  report  each  morning  at  6:45  in  order 
to  be  at  his  appropriate  routing  point  to  begin  his  initial 
run  at  7:00  a.m.   At  the  conclusion  of  the  morning  runs, 
each  driver  is  to  return  the  vehicle  to  the  parking  lot 
located  at  3rd  and  Massachusetts  Avenue,  N.  W. ,  where  the 
car  will  be  parked  and  locked  until  12:45,  at  which  time  he 
will  secure  the  vehicle  and  prepare  to  begin  the  afternoon 
runs.   At  the  conclusion  of  his  last  evening  run,  the  driver 
will  return  the  vehicle  to  the  parking  lot  at  3rd  and 
Massachusetts,  N.  W. ,  park  and  iock  the  car,  and  store  the 
keys  inside  the  cJantral  control  center.   At  no  time  is  any 
driver  to  take  the  keys  home  with  him. 

Gasoline  money  for  purchasing  fuel  for  the  autos  will 
be  provided  and  can  be  acquired  from  the  field  crew  super- 
visor.  The  driver  is  responsible  for  refilling  the  gas 
tank  as  needed,  being  sure  to  get  a  receipt  for  the  purchase 
of  the  gasoline.   The  receipt  will  be  turned  in  to  the  field 
crew  supervisor  after  the  purchase. 

The  route  breakdown  and  distance  check  list  is  shown 

on  Figures  30  through  35 •    These  were  used  during  the 

driver  training  program,  to  check  the  daily  runs,  and  to 

verify  information  during  the  coding  of  the  data. 


133 


CHECK 
POINT 

INTERSECTION 

LINK 

CUMULATIVE 

NO. 

NAME 

NUMBER 

DISTANCE 

DISTANCE 

1. 

M  STREET 

1 

C.ll 

0.11 

2. 

N  STREET 

2 

0.05 

0.16 

3. 

DUMBARTON  STREET 

3 

0.02 

0.18 

4. 

0  STREET 

4 

0.09 

0.27 

5. 

P  STREET 

5 

0.09 

0.36 

6. 

Q  STREET,  S. 

6 

0.03 

0.39 

7. 

Q  STREET,  N. 

7 

0.21 

0.60 

8. 

R  STREET 

8 

0.14 

0.74 

9. 

34TH  STREET 

9 

0.08 

0.82 

10. 

WHITEHAVEN  PKWY . 

10 

0.015 

0.835 

11. 

WHITEHAVEN  STREET 

11 

0.17 

1.005 

12. 

W  PLACE 

12 

0.09 

1.095 

13. 

HALL  PLACE 

13 

0.18 

1.275 

14. 

CALVERT  STREET 

14 

0.15 

1.425 

15. 

EDMUNDS  STREET 

15 

0.19 

1.615 

16. 

GARFIELD  STREET 

16 

0.06 

1.675 

17. 

MASSACHUSETTS 

17 

0.23 

1.905 

18. 

WOODLEY  ROAD 

18 

0.10 

2.005 

19. 

MACOMB  STREET 

19 

0.08 

2.085 

20. 

NEWARK  STREET 

20 

0.20 

2.285 

21. 

PORTER  STREET 

Figure  30.  Wisconsin  Avenue,  northbound  (Route  11) 
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CHECK 

POINT 

INTERSECTION 

LINK 

CUMULATIVE 

NO. 

NAME 

NUMBER 

DISTANCE 

NAME 

1. 

PORTER  STREET 

1 

0.19 

0.19 

2. 

NEWARK  STREET 

2 

0.08 

0.27 

3. 

MACOMB  STREET 

3 

0.11 

0.38 

4. 

WOODLEY  ROAD 

4 

0.19 

0.57 

5. 

CATHEDRAL  AVENUE 

5 

0.02 

0.59 

6. 

MASSACHUSETTS  AVENUE 

6 

0.08 

0.67 

7. 

GARFIELD  STREET 

7 

0.19 

0.86 

8. 

EDMUNDS  STREET 

8 

0.14 

1.00 

9. 

CALVERT  STREET 

9 

0.18 

1.18 

10. 

HALL  PLACE 

10 

0.07 

1.25 

11. 

W  PLACE 

11 

0.18 

1.43 

12. 

WHITEHAVEN  STREET 

12 

0.02 

1.45 

13. 

WHITEHAVEN  PARKWAY 

13 

0.06 

1.51 

14. 

34TH  STREET 

14 

0.15 

1.66 

15. 

R  STREET 

15 

0.21 

1.87 

16. 

Q  STREET,  N. 

16 

0.03 

1.90 

17. 

Q  STREET,  S. 

17 

0.08 

1.98 

18. 

P  STREET 

18 

0.10 

2.08 

19. 

0  STREET 

19 

0.02 

2.10 

20. 

DUMBARTON  STREET 

20 

0.04 

2.14 

21. 

N  STREET 

21 

0.11 

2.25 

22. 

M  STREET 

Figure  31.   Wisconsin  Avenue,  southbound  (Route  13) 
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CHECK 

POINT 

INTERSECTION 

LINK 

CUMULATIVE 

NO. 

NAME 

NUMBER 

DISTANCE 

DISTANCE 

1. 

17TH 

STREET 

1 

0.14 

0.14 

2. 

18TH 

STREET 

2 

0.07 

0.21 

3. 

H  STREET 

3 

0.03 

0.24 

4. 

19TH 

STREET 

4 

0.09 

0.33 

5. 

20TH 

STREET 

5 

0.10 

0,43 

6. 

21ST 

STREET 

6 

0.12 

0.55 

7. 

22ND 

STREET 

7 

0.035 

0.585 

8. 

K  STREET  RAMP 

8 

0.04 

0.625 

9. 

CIRC/N.  HAMPSHIRE 

9 

0.10 

0.725 

10. 

24TH 

STREET 

10 

0.10 

0.825 

11. 

25TH 

STREET 

11 

0.10 

0.925 

12. 

26TH 

STREET 

12 

0.13 

1.055 

13. 

28TH 

STREET 

13 

0.06 

1.115 

14. 

29TH 

STREET 

14 

0.06 

1.175 

15. 

30TH 

STREET 

15 

0.11 

1.285 

16. 

31ST 

AVENUE 

16 

0.09 

1.375 

17. 

WISCONSIN  AVENUE 

17 

0.18 

1.555 

18. 

3  3RD 

STREET 

18 

0.10 

1.655 

19. 

34TH 

STREET 

19 

0.05 

1.705 

20. 

KEY  BRIDGE 

Figure  32.   M  Street  and  Pennsylvania  Avenue,  westbound 

(Route  24) . 
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CHECK 

POINT 

INTERSECTION 

LINK 

CUMULATIVE 

NO. 

NAME 

NUMBER 

DISTANCE 

DISTANCE 

1. 

KEY  BRIDGE 

1 

0.05 

0.05 

2. 

34TH 

STREET 

2 

0.09 

0.14 

3. 

33RD 

STREET 

3 

0.18 

0.32 

4. 

WISCONSIN  AVENUE 

4 

0.08 

0.40 

5. 

31ST 

STREET 

5 

0.11 

0.51 

6. 

3  0TH 

STREET 

6 

0.05 

0.56 

7. 

29TH 

STREET 

7 

0.06 

0.62 

8. 

28TH 

STREET 

8 

0.14 

0.76 

9. 

26TH 

STREET 

9 

0.09 

0.85 

10. 

25TH 

STREET 

10 

0.11 

0.96 

11. 

24TH 

STREET 

11 

0.03 

0.99 

12. 

CIRCLE 

12 

0.06 

1.05 

13. 

CIRCLE  &  2 3RD 

13 

0.08 

1.13 

14. 

2  2ND 

STREET 

14 

0.13 

1.26 

15. 

21ST 

STREET 

15 

0.10 

1.36 

16. 

20TH 

STREET 

16 

0.08 

1.44 

17. 

19TH 

STREET 

17 

0.10 

1.54 

18. 

18TH 

STREET 

18 

0.13 

1.67 

19. 

17TH 

STREET 

Figure  33,   M  Street  and  Pennsylvania  Avenue,  eastbound 

(Route  22) . 
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CHECK 

POINT 

INTERSECTION 

LINK 

CUMULATIVE 

NO. 

NAME 

NUMBER 

DISTANCE 

DISTANCE 

1. 

22ND 

&  F  STREET 

1 

0.06 

0.06 

2. 

2  2ND 

&  G  STREET 

2 

0.25 

0.31 

3. 

22ND 

&  PA.  AVENUE 

3 

0.035 

0.345 

4. 

2  2ND 

&  K  STREET 

4 

0.10 

0.445 

5. 

K  & 

21ST 

5 

0.10 

0.545 

6. 

K  & 

20TH 

6 

0.08 

0.625 

7. 

K  & 

19TH 

7 

0.10 

0.725 

8. 

K  & 

18TH 

8 

0.12 

0.845 

9. 

K  & 

CONNECTICUT 

AVE. 

9 

0.05 

0.895 

10. 

K  & 

17TH 

10 

0.10 

0.995 

11. 

K  & 

16TH 

11 

0.11 

1.105 

12. 

K  & 

15TH  (VERMONT) 

12 

0.05 

1.155 

13. 

K  & 

15TH 

13 

0.09 

1.245 

14. 

K  & 

14TH 

14 

0.07 

1.315 

15. 

14TH 

&  I 

15 

0.08 

1.395 

16. 

14TH 

&  H 

16 

0.08 

1.475 

17. 

H  & 

15TH 

17 

0.08 

1.555 

18. 

H  & 

MADISON 

18 

0.08 

1.635 

19. 

H  & 

16TH 

19 

0.08 

1.715 

20. 

H  & 

JACKSON 

20 

0.08 

1.795 

21. 

H  & 

17TH 

21 

0.08 

1.875 

22. 

17TH 

&  PA.  AVENUE 

22 

0.07 

1.945 

23. 

17TH 

&  ENT.  TO  EXEC. 

OFF 

.BLDG. 

23 

0.04 

1.985 

24. 

17TH 

&  F 

24 

0.07 

2.055 

25. 

17TH 

&  NEW  YORK 

25 

0.07 

2.125 

26. 

17TH 

&  E 

26 

0.21 

2.335 

27. 

17TH 

&  CONST.  AVENUE 

27 

0.21 

2.335 

28. 

18TH 

&  VIRGINIA 

AVE. 

28 

0.19 

2.655 

Figure  34,   Downtown  loo^ 

)  (Route  30) 

. 
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CHECK 

POINT 

INTERSECTION 

LINK 

CUMULATIVE 

NO. 

NAME 

NUMBER 

DISTANCE 

DISTANCE 

29. 

18TH 

&  E  STREET  S. 

29 

0.04 

2.695 

30. 

18TH 

&  E  STREET  N. 

30 

0.10 

2.795 

31. 

18TH 

&  F 

31 

0.07 

2.865 

32. 

18TH 

&  G 

32 

0.08 

2.945 

33. 

18TH 

&  PA.  AVENUE 

33 

0.05 

2.995 

34. 

18TH 

&  H 

34 

0.07 

3.065 

35. 

18TH 

&  I 

35 

0.07 

3.135 

36. 

18TH 

&  K 

36 

0.09 

3.225 

37. 

18TH 

&  L 

37 

0.08 

3.305 

38. 

L  &  CONNECTICUT  AVE. 

38 

0.07 

3.375 

39. 

CONNECTICUT  AVE.  &  K 

39 

0.09 

3.465 

40. 

17TH 

&  I 

40 

0.08 

3.545 

41. 

17TH 

&  H 

41 

0.08 

3.625 

42. 

17TH 

&  PA.  AVENUE 

42 

0.0 

3.695 

43. 

17TH 

&  EXEC.  OFF. 

BLDG. 

43 

0.04 

3.735 

44. 

17TH 

&  F 

44 

0.06 

3.795 

45. 

N.Y.  , 

E.  &  17TH  ST. 

45 

0.11 

3.905 

46. 

N.Y.  , 

E.  &  18TH  ST. 

46 

0.10 

4.005 

47. 

E  &  19TH  STREET 

47 

0.08 

4.085 

48. 

E  &  20TH  STREET 

48 

0.10 

4.185 

49. 

E  &  21ST  STREET 

49 

0.07 

4.255 

50. 

E  &  VIRGINIA  AVENUE 

Figure  34.   Downtown  loop  (Route  30) 


(Continued) 


139 


CHECK 

POINT 

INTERSECTION 

LINK 

CUMULATIVE 

NO. 

NAME               NUMBER 

DISTANCE 

DISTANCE 

1. 

23RD 

|  &  D 

1 

0.01 

0.01 

2. 

23RD 

&  NAVY  HOSPITAL 

2 

0.03 

0.04 

3. 

2  3RD 

&  E 

3 

0.06 

0.10 

4. 

23RD 

i  &  VIRGINIA  AVE. 

4 

0.02 

0.12 

5. 

2  3RD 

i  &  F 

5 

0.07 

0.19 

6. 

2  3RD 

i  &  G 

6 

0.08 

0.27 

7. 

2  3RD 

i  &  H 

7 

0.07 

0.34 

8. 

23RD 

i  &  I 

8 

0.09 

0.43 

9. 

23RE 

i  &  WASHINGTON  CRCL   Q 

0.09 

0.52 

10. 

WASH 

:.  CRCL  &  N.  HAMP. 

10 

0.06 

0.58 

11. 

N. 

HAMPSHIRE  &  L  ST. 

11 

0.13 

0.71 

12. 

L 

& 

21ST  STREET 

12 

0.09 

0.80 

13. 

L 

& 

20TH  STREET 

13 

0.08 

0.88 

14. 

L 

& 

19TH  STREET 

14 

0.10 

0.98 

15. 

L 

& 

18TH  STREET 

15 

0.08 

1.06 

16. 

L 

& 

CONN.  AVENUE 

16 

0.08 

1.14 

17. 

L 

& 

17TH  STREET 

17 

0.11 

1.25 

18. 

L 

& 

16TH  STREET 

18 

0.10 

1.35 

19. 

L 

& 

15TH  STREET 

19 

0.09 

1.44 

20. 

L 

& 

VERMONT  AVENUE 

20 

0.06 

1.50 

21. 

L 

& 

14TH  STREET 

21 

0.07 

1.57 

22. 

14TE 

f  &  K 

22 

0.08 

1.65 

23. 

K 

& 

VERMONT  AVENUE 

23 

0.06 

1.71 

24. 

K 

& 

15TH  STREET 

24 

0.10 

1.81 

25. 

K 

& 

16TH  STREET 

25 

0.11 

1.92 

26. 

K 

& 

17TH  STREET 

26 

0.05 

1.97 

27. 

K 

& 

CONNECTICUT  AVE. 

27 

0.12 

2.09 

28. 

K 

& 

18TH  STREET 

28 

0.10 

2.19 

Figure  35.   Downtown  loop  (Route  40)  . 
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CHECK 

POINT 

NO. 

INTERSECTION 

NAME 

NUMBER 

LINK 
DISTANCE 

CUMULATIVE 
DISTANCE 

29. 

K  &  19TH 

STREET 

29 

0.08 

2.27 

30. 

K  &  20TH 

STREET 

30 

0.10 

2.37 

31. 

K  &  21ST 

STREET 

31 

0.13 

2.50 

32. 

K  &  2 2ND 

STREET 

32 

0.10 

2.60 

33. 

K  &  21ST 

STREET 

33 

0.09 

2.69 

34. 

K  &  20TH 

STREET 

34 

0.08 

2.77 

35. 

K  &  19TH 

STREET 

35 

0.07 

2.84 

36. 

19TH  & 

I 

STREET 

36 

0.08 

2.92 

37. 

19TH  & 

PA.  AVENUE 

37 

0.13 

3.05 

38. 

19TH  & 

G 

STREET 

38 

0.07 

3.12 

39. 

19TH  & 

F 

STREET 

39 

0.09 

3.21 

40. 

19TH  & 

E 

STREET  N. 

40 

0.04 

3.25 

41. 

19TH  & 

E 

STREET  S. 

41 

0.12 

3.37 

42. 

19TH  & 

C 

STREET 

42 

0.10 

3.47 

43. 

19TH  & 

CONST".  AVE. 

I 

43 

0.07 

3.54 

44. 

CONST. 

AVE.  &  20TH 

ST. 

44 

0.10 

3.64 

45. 

CONST. 

AVE.  &  2 1ST 

ST. 

45 

0.07 

3.71 

46. 

CONST. 

AVE.  &  BACON 

46 

0.04 

3.75 

47. 

CONST. 

AVE.  &  2 2ND 

ST. 

47 

0.07 

3.82 

48. 

CONST. 

AVE.  &  23RD 

ST. 

48 

0.08 

3.90 

49. 

23RD  & 

C 

STREET 

Figure  35.   Downtown  loop  (Route  40) .   (Continued) 
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ENCODING  MOVING  CAR  DATA 

These  instructions  are  for  transferring  machine  tape 
data  to  the  coding  sheet  for  data  processing.   Sample  forms 
are  shown  on  Figure 

Column  First  Car  I.  D. 


2  Route  identification  number 

3  Direction  identification  for  Routes  1  and  2 

(north  1,  east  2,  south  3,  west  4) 

4,5  Month  of  year  (i.e.  August  =  08) 

7,8  Day  of  the  month  (01  _  day  _  31) 

10,11  Hour  of  day,  based  on  24-hour  clock 

13,14  Minute  of  hour  (00  _  minute  -  59) 

17       Driver  number,  same  as  route  number  or  other 
designated  number 

20       For  Comment  Card — the  number  placed  in  this 

column  designates  the  number  of  comment  cards 
to  follow 

2.  Second  Card  -  Comment 

Comment  cards  identify  any  unusual  circum- 
stances that  affect  traffic  flow.   Only 
short  statements  are  needed  (i.e.  accident 
on  K  St.  near  18th) 

3.  Third  Card  -  Data 

Each  intersection  is  designated  by  a  negative 
sign  (-)  before  the  intersection  number  (see 
each  individual  route  travel  time  and  delay 
listing) 

Each  intersection  number  is  followed  by  the 
crossing  time.   This  number  recorded  in 
accumulative  seconds  is  the  time  at  which  the 
car  crosses  the  stop  bar.   This  point  is 
known  as  link  discharge  point.   The  stop  and 
starts  (delay  time)  are  recorded  after  the 
intersection  number  and  the  Crossing  Time.   The 
delay  time  is  recorded  in  pairs  so  that  every 
time  entry  (crossing  time  and  delay  time)  is 
in  odd  groupings.   Or  in  other  words,  the 
entries  between  intersection  designation  are 
odd  (1,  3,  5...,  see  example). 
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When  recording  stop  times,  be  sure  that  for  every  stop 
time  recorded  a  comparison  start  is  also  recorded  so  that 
the  entry  for  each  link  will  show  a  discharge  time  and  a 
combination  of  start  and  stop  time. 


MANUAL  MOVING  CAR  STUDIES 

As  noted,  certain  initial  runs  and  runs  which  occurred 
when  equipment  failed  were  made  manually.   The  procedures 
for  data  collection  were  similar  to  those  defined  in  the 
Manual  of  Traffic  Engineering  Studies ,  Third  Edition,  In- 
stitute of  Traffic  Engineers,  1964,  pp.  41-44.   Sample 
forms  as  used  for  one  of  the  downtown  loops  are  shown  on 
Figure  36. 

Bus  Data  Collection 

Volume  1  described  the  bus  studies  and  noted  that  both 
intersection  and  route  analyses  were  conducted.   The  follow- 
ing instructions  were  used. 

Intersection  Analyses 

Each  person  will  be  responsible  for  recording  data  for 
one  approach.   The  data  are  to  be  used  in  the  analysis  of 
bus  performance  at  individual  locations.   There  are  three 
intersections  (nine  approaches)  to  be  analyzed  in  this 
process.   They  are: 

1.  18th  Street  and  Pennsylvania  Avenue,  N.  W. 
Three  approaches 

2.  Wisconsin  Avenue  and  Macomb  Street,  N.  W. 
Two  approaches  on  Wisconsin  Avenue 

3.  14th  Street  and  K  Street,  N.  W. 
Four  approaches 

The  recorder  must  record  specific  time  information  for 
as  many  buses  as  possible.   The  types  of  data  desired  pre- 
clude the  ability  to  record  this  information  for  every  bus 
passing  his  location. 

The  recorder  is  requested  to  get  complete  data  for 
each  bus  timed.   Selection  of  buses  to  be  timed  is  to  be 
made  in  this  priority.   All  buses  with  the  identifying  sym- 
bol "B"  in  their  windshield  will  have  first  priority.   As 
many  of  the  other  buses  are  to  be  timed  as  is  possible. 
Selection  of  buses  shall  be  random  with  their  position  in 
a  group  to  be  variable. 
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As  each  bus  selected  crosses  the  detector  location, 
the  recorder  will  start  the  stop  watch  for  recording  his 
through  time.   He  will  also  record  all  of  the  information 
shown  on  the  attached  form. 

When  the  bus  stops  at  the  intersection,  the  second  stop 
watch  is  to  be  used  to  time  the  dwell  time  of  the  bus.   The 
recorder  will  also  indicate  reason  for  dwell  using  symbol 
shown  on  form.   Departure  time  is  time  for  bus  to  travel 
from  the  detector  location  across  intersection.   This  time 
is  recorded  from  first  stop  watch. 

After  each  selected  bus  has  cleared  the  intersection 
and  the  times  have  been  recorded,  the  recorder  will  reset 
both  watches  and  begin  on  the  next  bus . 

Please  be  sure  each  bus  timed  has  the  complete  informa- 
tion recorded. 

The  form  used  to  record  the  intersection  data  is  shown 
on  Figure  37. 

Route  Analyses 

Bus  route  data  is  to  be  collected  for  two  routes  in  the 
UTCS/BPS  area.   The  data  collection  periods  are: 

Wisconsin  Avenue  at  Macomb  Street 

Station  1  -  one  person  to  be  located  on  rhe  west  side 
of  Wisconsin  Avenue,  north  of  Macomb  at 
the  advance  detector  point.   Record  all 
southbound  buses  as  they  cross  detector 
location. 

Station  4  -  one  person  to  be  located  on  the  east  side 
of  Wisconsin  Avenue  at  the  crosswalk.   Re- 
cord all  northbound  buses  as  they  pass 
crosswalk. 

Pennsylvania  Avenue  at  17th  Street 

Station  3  -  one  person  to  be  located  on  the  north  side 
of  Pennsylvania,  east  of  17th  Street   at 
the  advance  detector  point.   Record  all 
buses  in  series  30  to  39  as  they  cross 
detector . 

Station  2  -  one  person  to  be  located  on  the  south  side 

of  Pennsylvania  Avenue  at  east  of  17th  Street 
at  the  crosswalk.   Record  all  series  30-39 
buses . 
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TRAVEL    TIME     AND  DELAY 


Route . 
Date  _ 


3   -   Down  Town   Loon 


Day 


Direction 

Start    time 


.Run    number 


Recorder 


Control  Point 

Crossing            Link  Time 
Time             Delay  Time 

No. 

Location 

30-28 

18th  &  Virginia 

30-29 

18th  &  E  St.  S. 

30-30 

18th  &  E  St.  M. 

30-31 

18th  &  F 

30-32 

18th  &  G 

30-33 

18th  &  Pa.  Ave. 

30-34 

18th  &  H 

30-35 

18th  &  I 

30-36 

18th  &  K 

30-37 

18th  &  L 

30-38 

L  &  Conn.  Ave. 

30-39 

Conn .  Ave .  &  K 

J 

30-40 

17th  &  I 

30-41 

17th  &  H 

30-42 

17th  &  Pa.  Ave. 

30-43 

17-th  &  Exec.  Off. 

30-44 

17th  &  F 

30-45 

M.Y. ,  E  &  17th  St. 

30-46 

N.Y. ,  E  &  18th  St. 

30-47 

E  &  19th  Street 

30-48 

E  &  20th  Street 

30-49 

E  &  21st  Street 

30-50 

E  &  Virginia  Ave. 

CAUSE  OF  DELAY 


S  -  Traffic  Signals 
LT  -  Left  Turns 
SS  -  Stop  Sign 
PK  -  Parked  Cars 


DP  -  Double  Parking 
T  -  General  Congestion 
PED  -  Pedestrian 
BP  -  Bus  Passengers 


Figure  37. 
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TRAVEL    TIME     AND  DELAY 


Route . 
Date  _ 


3    -   Down   Town    Loop 


Day 


Direction 

Start    time 


.Run    number 


Recorder 


Control  Point 

Crossing 
Time 

Link  Time 
Delay  Time 

No. 

Location 

30-01 

22nd  &  F  Street 

30-02 

22nd  &  G  Street 

30-03 

22nd  &  Penn.  Ave. 

30-04 

22nd  &  K  Street 

30-05 

K  &  21st  Streets 

30-06 

K  &  20th  Streets 

30-07 

K  &  19th  Streets 

30-08 

K  &  18th  Streets 

30-09 

K  &  Connecticut 

30-10 

K  &  17th  Streets 

30-11 

K  &  16th  Streets 

30-12 

K  &  15th  (Vermont) 

30-13 

K  &  15th 

30-14 

K  &  14th 

30-15 

14th  &  I 

30-16 

14th  &  H 

30-17 

H  &  15th 

30-18 

H  &  Madison 

30-19 

H  &  16th 

30-20 

H  &  Jackson 

30-21 

H  &  17th 

30-22 

17th  &  Penn.  Ave. 

30-22 

1/th  &  Ent.  to 
Exec.  Off.  Bld<?. 

30-24 

17th  &  F 

30-25 

17th  &  New  York 

30-26 

17th  &  E 

30-27 

17th  &  Const.  Ave 

CAUSE    OF    DELAY 


S   -  Traffic  Signals 
LT   -   Left   Turns 
SS   -   Stop   Sign 
PK  -   Parked  Cars 


DP  -   Double   Parking 
T  -   General   Congestion 
P2D  -  Pedestrian 
BP  -   Bus   Passengers 


Figure    37    (continued) . 
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The  data  collectors  at  these  four  locations  will  be  re- 
sponsible for  recording  the  information  listed  on  the 
attached  form  for  all  buses  whose  route  numbers  are  30,  32, 
33,  34,  36,  37,  38,  and  39. 

21st  Street  at  L  Street 

Station  1  -  one  person  on  the  west  side  of  21st  Street, 
north  of  L  Street  at  the  advance  detector 
points.   Record  all  D2,  D4 ,  L4 ,  and  L6  buses 
on  21st  Street. 

14th  Street  at  K  Street 

Station  2  -  one  person  on  the  south  side  of  K  Street, 
east  of  14th  Street  at  the  crosswalk.   Re- 
cord all  eastboudn  D2,  D4 ,  L4  and  L6  buses 
as  they  pass  crosswalk. 

Station  3  -  one  person  on  the  north  side  of  K  Street, 

east  of  14th  Street  at  the  advance  detector 
point.   Record  all  D2,  D4 ,  L4  and  L6  buses 
as  they  cross  detector  location. 

20th  Street  at  L  Street 

Station  4  -  one  person  on  the  east  side  of  20th  Street 
at  the  crosswalk.   Record  all  northbound 
D2,  D4 ,  L4  and  L6  buses. 

Each  data  collector  is  to  record  all  of  the  informa- 
tion shown  on  the  sheets  for  each  bus  on  the  designated 
routes  passing  the  intersection.   The  information  is  listed 
in  order  of  its  importance.   See  the  attached  sample  form. 
Note:   When  recording  arrival  time,  please  be  sure  to  re- 
cord the  time  to  the  nearest  second. 

The  station  locations  and  routes  are  shown  on  Figures 
38  and  39.   The  recording  form  is  shown  on  Figure  40  and  41, 


148 


/ 


w 

Q) 
-P 

O 
U 

CO 

c 

Q) 
> 

< 

fd 

■H 

c 

rd 

> 

rH 

>1 
W 

c 
c 

(!) 

CM 


to 

-P 
C 

■H 
O 

a 
o 

•H 

-p 
o 

0) 


o 
o 

fd 

-p 

rrj 

Q 

Cm 
PQ 


o 

U 

tn 
•H 
Cm 


149 


/ 


10 

<L> 
+J 

3 
O 

u 

CD 

p 

c 

CD 
> 

<: 
+j 
u 

•H 
-P 

o 

cu 

c 

C 

o 
u 

a 

fO 

<d 

CD 
> 

0 

i-H 

o 


10 
-P 

c 

•H 
0 

c 
o 

•H 

-p 
u 

0) 


o 
u 

CO 

+J 

(0 
Q 

CO 

Oi 


CD 

o 

•H 
Cm 


150 


Jhk 


&  a^ocutes 


DATE 


BPS/INTERSECTION  DATA 
DAY TIME  PERIOD. 


RECORDER 


LOCATION 


DIRECTION 


ARRIVAL 
TIME 

ROUTE 
NO. 

BLOCK 
NO. 

B 

BUS  ? 

BUS 
NO. 

STOP 
CAUSE 

DWELL  TIME 

DEPARTURE 
TIME 

EST.  NO. 
PASS. 

SEC. 

SEC. 

STOP  CAUSE 

0  -  NO  STOPPING 
R  =  RED  ONLY 


P  =  PASSENGER  LOADING  ONLY 
PR  =  PASSENGER  LOADING  PLUS  RED 


Figure  40. 
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&   jssocurcs 


UTCS/BPS     #  2911 


ROUTE  ANALYSIS 


DATE 


DAY 


TIME  PERIOD 


RECORDER 


LOCATION 


DIRECTION 


ARRIVAL 
TIME 

ROUTE  NO.,   BL0CK 
NO 

B  BUS  ? 

BUS  NO. 

EST.  NO. 
PASS. 

SCHEDULE 
TIME 

i 

1 

l 

i 

i 

\ 

i 
1 

1 

| 

Figure  41 
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MOVING  CAR  ANALYSIS  ROUTINES 
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USER'S  MANUAL 
MOVING  CAR  ANALYSIS  ROUTINES 


INTRODUCTION 

Moving  car  (MC)  data  reduction  and  analysis  programs 
were  developed  to  handle  data  collected  as  part  of  the 
UTCS/BPS  evaluation  project.   The  software  is  not  directly 
transferable  to  other  situations,  although  it  could  be 
modified  for  usage  elsewhere. 

The  underlying  concept  of  the  analysis  is  to  develop 
link-specific  measures  of  travel  time,  delay,  stops,  and 
speed  from  the  moving  car  runs  performed  as  part  of  the 
study.   Following  a  series  of  edit  checks,  a  network  volume 
is  added  to  each  observation  for  purposes  of  ensuring  that 
data,  for  comparative  purposes,  was  collected  under  similar 
circumstances . 

These  network  volumes  are  extracted  from  the  UTCS  15- 
minute  detector  summary  data  and  are  the  same  used  for  the 
detector  analysis  carried  out  as  part  of  the  evaluation 
study.   This  step  ties  the  procedure  to  the  UTCS  software, 
although  an  alternative  mechanism  for  assigning  network 
volumes  or  other  global  traffic  performance  measure  could 
be  made . 

Once  the  volumes  have  been  assigned,  the  observations 
are  ranked  in  ascending  volume  sequence  and  the  two  sets 
of  observations  under  comparison  are  matched,  following  the 
same  procedure  as  used  for  the  detector  analysis.   Briefly, 
this  procedure  is  to  first  eliminate  any  "outliers"  so  that 
the  two  distributions  span  similar  volume  ranges,  then 
eliminate  selected  points  from  the  larger  distribution  to 
achieve  equal  sample  sizes. 

Following  the  matching  process,  a  series  of  statistical 
post  processor  inputs  are  prepared  and  the  UTCS  post  pro- 
cessor is  run  for  the  selected  links.   Subsequently,  the 
links  are  aggregated  into  a  series  of  subnetworks  and  the 
post  processor  is  run  again  for  these  statistical  compari- 
sons.  The  post  processor  is  the  same  as  developed  for  the 
detector  analysis  and  requires  only  the  particular  type  of 
inputs  derived  from  the  MC  runs  for  successful  operation. 


COMPONENTS 

The  MC  chain  is  composed  of  seven  special-purpose 
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programs,  plus  the  post  processor  and  the  system  sort  rou- 
tines.  As  the  procedure  is  currently  applied,  two  of  the 
programs  are  executed  once  for  each  MC  route/time-of-day 
data  set.   Three  of  the  programs  and  the  sort  are  run  on 
each  of  the  data  sets  for  a  specific  statistical  comparison, 
The  remaining  two  programs  plus  two  executions  of  the  post 
processor  are  made  once  for  each  comparison. 

The  procedure  is  illustrated  in  Figure  42 .   For  simpli- 
city, the  set-up  indicates  a  single  application  from  raw 
data  through  the  post  processor  runs.   In  actual  practice, 
the  MC2  and  MCPLUG2  programs  are  run  only  once  for  a  route/ 
time-of-day  data  set.   The  remaining  programs  are  executed 
together  for  each  comparison.   Briefly,  the  individual 
program  performs  the  following  functions: 

MC2 

1.  Performs  the  basic  data  reduction  and  computation 
of  measures  of  effectiveness  (MOE) ; 

2.  Performs  data  checks  for  editing  the  raw  data; 

3.  Flags  partially-usable  observations. 

PLUG  2 

1.   Substitutes  mean  values  for  unusable  items  in  an 
observation. 

STRIP 

1.  Pre-arranges  the  MOE  data  set  for  post  processor 
input ; 

2.  Extracts  a  header  record  for  each  observation. 

MCV0L2 

1.   Assigns  a  network  volume  from  the  detector  data 
to  each  observation  (if  possible) . 

SORT 

1.   Sorts  the  header  records  by  ascending  volume. 
MCMTCH2 

1.   Matches  the  two  header  records. 
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ALT. A 


RAW 
DATA 


(  LABSIN  | 


ALT.B 


POST 


Figure  42.   Flow  chart  of  moving  car  analysis. 
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MCCNTL2 

1.   Produces  control  inputs  for  post  processor  runs. 
MCOND 

1.   Computes  aggregate  MOE * s  for  subnetworks. 

POST 

1.   Performs  statistical  analyses  on  link  and  subnet- 
work data  sets. 

OPERATIONAL  PROCEDURE 

For  ease  of  application,  the  MC  programs  have  been 
written  so  that  they  may  be  executed  using  catalogued  pro- 
cedures.  All  control  is  exercised  through  special-purpose 
data  sets  with  unique  names  (or  member  names)  that  can  be 
altered  at  execution  time  by  the  passing  of  parameters 
through  the  PROC.   The  MC2  and  MCPLUG2  programs  are  incor- 
porated in  a  simple  PROC  and  the  rest  of  the  procedure  (14 
separate  program  executions)  are  included  as  a  second  large 
PROC.   Figures  4  3  and  44  indicate  the  programs  for  the  two 
procedures . 

The  use  of  PROCs  requires  the  creation  of  several 
special-purpose  control  data  sets  for  passing  parameters 
and  other  control  values  to  the  various  programs.   Some  of 
these  data  sets,  particularly  those  that  vary  only  by  route, 
exist  as  unique  data  sets  with  names  containing  substitut- 
able  parameters.   Most  of  the  other  data  sets,  however,  are 
of  the  partitioned  data  set  (PDS)  form,  having  separate 
members  for  each  route,  time  of  day,  and  alternative  (RTA) . 
These  various  data  sets  include  the  following: 


LNKLEN 


Content:   length  of  each  link  on  a  route,  in  hundredths 
of  a  mile 

Organization:   sequential  data  set,  one  per  route. 
Form:   BCD  (card  image) . 


Format:   (1016) . 


LABSIN 


Content:   major  parameters  for  each  RTA. 
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//MCES 
//OUT  E 
//BYE  D 
//  UNIT 
//INI TM 
//STEPL 
//  UNIT 
//FTU3F 
//FT06F 
//FTObF 
//  UNIT 
//FT15F 
//  UNIT 
//FT08F 
//  UNIT 
//FT09F 
//  DCB= 
//  OISP 
//FTIOF 

//  unit 

//  DCB  = 
//PLUGM 
//STEPL 
//  UNIT 
//FT03F 
//FT06F 
//FT08F 
//FT09F 
//  UNIT 
//  DCB= 
//FT05F 
//  UNIT 


PROC  DSN=X 
XFC  PGM=IE 
D  CSN=PMMC 
=SYSDA,VUL 
C  EXEC  PGM 
IB  DD  DSN  = 
=  SYSDA,VOL 
001  CD  SYS 
001  DD  SY5 
001  00  OSN 
=SYSDA,VOL 
001  DO  OSN 
=SYSDA,VOL 
001  DO  OSN 
=SYSDA,VOL 
001  DD  D.SN 
(RECFM=VBS 
=(NEW,PASS 
001  DD  DSN 
=SYSDA,VOL 
(RECFM=VBS 
C  EXEC  PGM 
IB  DD  DSN  = 
=SYSDA,VOL 
001  OD  SYS 
001  DD  SYS 
001  OD  DSN 
001  DD  DSN 
=  SYSDA,V(JL 
(RECFM=VbS 
001  DO  DSN 
=  SYSDA,  VUL 


XX,KTN 

F8R14 

O.UTCS 

=SER=0 

-MC2,T 

PwMCO. 

=SER=U 

OUT-A 

DUT  =  A 

=PMMCQ 

=SER=0 

=PMMCQ 

=SFR=0 

=PMMCO 

=SER=C 

-CUT  EM 

,LRECL 

) 

=PMMCO 

=SER=0 

,LRLCL 

=PLUG, 

PMMCU. 

=SER=G 

C)UT  =  A 

DUT  =  A 

=  £  £  T  E  M 

=PMMCO 

=SER=0 

,LRECL 

=  PM'MCO 

=SER=0 


C^YYY 

.MCAR.MUf.OSN, 

T hEKS, D I SP=( OLD, DELETE, DELETE) 

I  ^E^l 

UTCS.LOAD, 

THERS,DISP-SHR 


.UTCS.LABSINUDSN) ,LABEL=(,,,IN), 

THERS,DI SP=SHR 

.UTCS.NCAR.LNKLtN.RfiRTNO, 

THERS,DTSP=SHR 

.UTCS.MCAR.RD£DSN, 

THERS,DISP=SHR 

PyUN'l  T=SYSDA, 

-9  6tJ,bLKSIZE-644  7)  , SP ACE= ( 6447 , ( 6 ,  1)  ,RLSE)  , 

.UTCS.MCLABS(£DSN) ,LABEL=( »  t ,OUT) , 

THERS,DISP=OLD, 

-28, BLK S I ZE= 32) .SPACE =(TRK, (2,1,20) ) 

TIME=i 

UTCS.LOAD, 

THERS,DISP=SHR 


P,UNIT=SYSDA,DISP=(OLD,DELETE) 
,UTCS.MCAR.MO£DSN, 
THERS,OISP=(NEw, KELP, DELETE), 

=1228,3LKSIZE=6447) , SPACE= ( 64^ 7 , (fa, 1)  ,RLSF) 
.UTCS.MGLABS(£DSN) ,LABEL=( , , , IN) , 
THERS,DISP=SHR 


Figure    43.       MC    PROC    1. 
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//MCSTRIP    PROC    DSN=X,DSN2=Y,DAB=XX,DBA=YY,DETA=XXX,DETB=YYY,kTE=Z 

//UNI    EXEC    PGM=IEBGENER 

//SYSPKINT  DD  SYSOUT=A 

//SYSIN  DD  DUMMY 

//SYSUT1  DO  DSN  =  PMMCG.UTCS.MClABS(£DSN),LABEl=( , , ,  IN)  , 

//  UN  I  T  =  SY  SD  4,  VUL  =  SER  =  0  THE  KS.IJ  I  SP  =  SHR 

//SYSUT2  DD  DSN  =  ££MCLAB1,UNIT  =  SYSUA,DISP=(  ,PASS>  , 

//  DCB=(RECFM=VRS,LRECL=2B,eLKSIZE=32),SPACE=(TRK, (2,1)) 

//UN2  EXEC  PGM=IEBGENER 

//SYSPRINT  OD  SYSOUT=A 

//SYSIN  DD  DUMMY 

//SYSUT1  DD  DSN=PMMCO.UTCS.KCLABS(£DSN2) ,LABEL=( , , ,IN) , 

//  UNIT=SYSDA,VDL=SER=OTHEkS,DISP=SHR 

//SYSUT2  DD  DSN=££MCLAB2,UNIT=SYSDa,DISP=(  ,PASS)  , 

//  DC B= ( R ECF M= Vb S, LR FCl  =  28, BLKS I ZE  =  32  ),SPACE=< TRK, (2,11) 

//STRIP  EXEC  PGM=STRIP 

//STEPLIB  DO  DSN=PMMCO.UTCS.LOAD, 

//  UNIT=SYSOA,VGL=SER=GTHEKS,DISP=SHR 

//FT06FU01  OD  SYSUUT=A 

//FT03F001  DD  SYSOUT=A 

//FT08F001  DO  DSN=PMMCO  .  UTCS.  MCAR  .M06US.N  , 

//  UNI  r=SYSDA,VOL-=SER=CThERStOISP=SHR 

//FT09F001  DD  UNIT=SYSOA, 

//  DCB=(RECFM=V3Sf LRECL=252,BLKSIZE=i500l , SPACE=( TRK, (5,1) ) 

//FTlOFOOl  DD  UNIT=SYSOA, 

//  DCB-(RECFM=VBS,LRECL=2  52,6LKSIZE=1500) , SPACE= ( TRK, (5  , 1 ) ) 

//FT11FOOI  DO  UNIT=SYSOA, 

//  CCB=(RECFM=VBS»LRECL  =  2  52,BLKSIZE  =  L500) , SP ACE= ( TRK , { 5  , 1  )  ) 

//FT12FC01  DD  DNIT^SYSDA, 

//  DCB=(RECFM=VBS,LRFCL  =  2  52,BLKSIZE=lf300)  , SPACE= ( TRK , ( 5 , 1 ) ) 

//FT14F0C1  DO  DSN=££.MCTH1, 

//  UNIT^SYSDA,OISP=(NEW.PASS) , 

//    nCB=(RECFM  =  VbStLRECL  =  3  6,BLKSIZE=1000l  ,SPACF>(TRK,(  1,1)  ) 

//FT16F001    DO    DSN=££MCTF1, 

//    Ui\III  =  SYSDA,DISP=(  .PASS), 

//    DC8=IRECFM=VBS,LRECL=2  52,BLKSIZE=3520) ,SPACE=(TRK, (4,1) ,RLSE) 

//FT18F001     OD    DSN=££MCTM1, 

//    UNlT=SYSOA,DISP=(,PASS)  , 

//    DCB=(RECFM=VBS,LRECL=2  52,BLKSIZE=3  520) ,SPACE=(TRK, (2  0, LI ,RLSF) 

//FT05F001    DD    DSN=££ MCL Ab I ,UM I T=SYSDA , D I SP=( OLD , P ASS) 


Figure    44.       MC    PROC    2. 
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/ / S  r  R  I  P  2    EXEC     PbK=STRIP 

//STFPLIO    DD    DSi\=PMMCU. UTCS. LOAD, 

//    UN1T=SYSUA,VGL=SFR=0THERS,  DISP=SHR 

//FT06F001    DD    SYSOUT=A 

//FTQ3FC01    DD    SYSGUT=A 

//FT06F001    DD    DSN=PMMCO.  UTCS  .  MCAR  .  MO&DSN2  , 

//    UNIT=SYSDA,VUL=StR=QTHERStDISP=SHR 

//FT09F001    DD    UNIT=SYSOA, 

//    DCB= (RECFM=VBS,LRECL=252,BLKS IZE=1500) , SPACE=(TRK, (5,1) ) 

//FT10F001    DD    UNIT=SYSDA, 

//    DCB= ( RECFM=VBS,LRECL=2 52, 3LKS I ZE= 1500) ,  SPACE= ( TRK , ( 5 , 1 1 ) 

//FTllFOOl    DD    UNIT=SYSDA, 

//    DCB=  (RECFlM=VBS,LRECL=252,bLKS  IZE=1500)  , SP ACE= ( TRK , ( 5  ,  1  )  ) 

//FT12F001    [)D    UNIT=SYSOA, 

//    DCB=(RtCFM=V8S,LRECL=252,BLKSIZE=1500) ,  SPACED  TRK, (5,1) ) 

//FT14F001  DD  DSN-&&MGTH2, 

//  UNIT=SYSDA,DISP=(NEW,PASS), 

//  DC6=(RECFM=VBS,LRECL=36,bLKSIZE=1000) , SPACE= ( TRK , ( 1,1) ) 

//FT16F001  DD  DSN=££MCTF2, 

//  UNIT=SYS0A,D1SP=( ,PASS)t 

//  DCB=(RECFM=VdStLRECL=2  52,BLKSIZE=3520J ,SPACE=(TRK, (4,1) ,RLSE) 

//FT18F001  DD  DSN=6£MCTM2 , 

//  UNIT  =  SYSDA,DISP=(  ,PASS)  , 

//  DCB=(RECFM=VBS,LRECL=252,BLKSIZE=3520) , SPACF=(TRK, (2  0, I) ,RLSE) 

//FT05F001  DD  DSN=£SMCL AB2 ,UN I T=SYSDA ,DI SP=( OLD, PASS) 

//MC70L  EXEC  PGM=MCV0L2,CUND=(4,LT) 

//STEPLIB  DD  DSN=PMMCQ. UTCS. LOAD, 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=SHR 

//FT03F001  DD  SYSQUT=A 

//FT06FQ01  DD  SYSOUT=A 

//FT06F001  DD  DSN= PMMCO .UTCS . SRT3&DAB , 

//  UN1T=SYS&A,VCL=SER=0TmERS,DISP=SHR 

//FT10F001  DD  DSN=6&MCTHl, 

//  UNIT=SYSDA,DISP=(CLD,PASS) 

//FT09F001    DD    DSN=S£.MCTV1 , 

//    UNIT=SYSDA,DCB=(RECF.V  =  VBS,LRECL=40,BLKSIZE=1300)t 

//    DISP- (NEW, PASS) ,SPAC£=(TPK, (4, I) ,RLSE) 

//FTC5F001  DD  DSN=&£MCLA6 1 ,UN I T=SYSDA ,DI SP=( OLD, PASS) 

//FTi5F001  DD  DSN=PMMC0.UTCS.N08S(&DETA) ,LABEL=( , , t IN), 

//  UNIT=SYSDA,VOL=SER=OTHFRS,DISP=SHR 

//MCV0L2  EXEC  PGM=MCVGL2 , CGND= (4, LT ) 

//STEPLIB  DD  DSN=PMMCO. UTCS. LOAD, 

//  UiMIl=SYSDA,VOL  =  SER=OTHERS,DISP=SHR 

//FT03F001  DD  SYSOUT=A 

//FT06F001  DO  SYSOUT=A 

//FTQ8F001  DD  DSN=PMMCU.UTCS.  SP-T3S06A , 

//  UNlT=SYSDA,VUL=SER=OTHERS,DISP=SHR 

//FT10F001  DD  DSN=6£MCTH2, 

//  UNIT=SYSDA,DISP=(OLD,PASSJ 

//FT09F001  DD  DSN=££MCTV2, 

//  UNlT=SYSDA,DCB=(RECFM-VBS,LRECL=40,BLKSIZE=i000) , 

//  DISP=(NFWfPASS),SPACE=lTRK,{4,l)tRLSE) 

//FT05F001  DD  DSN=££MCLAB2 ,UN I T=SYSDA , 01 SP=( OLD, PASS) 

//FT15F001  DD  DSN=PMMCO. UTCS . NOBS ( £DETB)  ,LABEL  =  (  , ,  ,  IN) , 

//  UNIT=SYSUAtVOL=SER=OrhERSiUlSP=SHR 


Figure  44.   MC  PROC  2  (continued) 
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//FTOoFGGi 

no 

//FTlOFOOl 

DD 

//FT09F001 

on 

//SCRT  EXEC  PGK=SURT  ,  P ARH= « MSG=AP ,CGRE  =  30000'  ,CUNO  =  fcVtN 

//SORTLIb  DD  DSN=SYS1. SJKTL IB,DISP=SHR 

//SYSOUT  DD  SYSOUT=A 

//SCRTrtKOl     DD    U'\llT  =  SYSDA,SPACE=(CYL,(  I)  ,  .CONT1G) 

//SORTWK02  DD  UN  I T  =  S YSDA , SPACt= (CYL . (  I ) , ,CONT IG ) 

//SORTWK03  DD  UM  T  =  SYSOA,  SPACL=(C  YL  ,  (  1)  ,  ,CONT  IG) 

//SORTIN  DD  DSN^tCMCTVl, 

//  UNIT=SYSDA,DISP=(OLD,PASS) 

//SORTOUT    DD    DSN=t£MCTSl, 

//    UNIT=SYSDA,OlSP=(  .PASS)  , 

//    DCB=(kECFM=VUS,LRECL=40,6LKSIZE=1000)  ,  SPACEM TRK, ( 1, I) ) 

//SYS  IN  DD  DSN=PMMCO.UTCS.CC<SURT5) ,UNI T=SYSDA , VOL =SER=OTHEPS . 

//  DISP=SHk,LABCL=(.  ,.  IN) 

//SORT2    EXEC    PGM=SORT,PARP=«  KSG= AP , CORE=bOOOO •  ,CONC=EVEN 

//SOKTLIB    DD    DSN=SYSl.SuiUL  I8,DISP=SHR 

//SYSGUT  DD  SYSCUT=A 

//SORTWK01  DD  ON  I T  =  S Y SO A , SPA CE= ( C YL  ,  (  1 ) , , C ONT I G ) 

//SORTWK02  DD  UNI  T  =  SYSDA,  SPAC.E=  (  CYL  ,  (  1 )  ,  ,CCNT  IG  ) 

//SORTWK03  DD  UN  I T- S YSD A , SPACE= (C YL , (  1 ) ,  ,CGNT IG ) 

//SORTIN  DD  DSN=ttMCTV2, 

//  UNIT=SYSDA,DISP=(OLD,f'ASS) 

//SORTOUT  DD  DSN=££MCTS2, 

//  UNIT=SYSDA,D1SP  =  (  .PASS)  , 

//    DCB=(RECFM=VbS,LRECL  =  40,BLKSIZE=1000) , SPACE= ( TRK  ,  (  1,1)  ) 

//SYS  IN    DD    DSN=PMKCO.UTCS.CC( SORT  5)  ,UNIT=SYSDA, VJL =SER^OTHEkS , 

//    D1SP  =  SHK, LABELS,  ,  ,  IN) 

//MTCh2  EXEC  PGM=MCMTCH2,CUND=(0,LT) 

//STEPLIB  DD  USN=PMMCO.UTCS.LOAD, 

//  UNIT=SYSDA,VOL=SER=CThERS,DISP=SHR 

//FT06F001  DD  SYSOUT=A 

//FTO3F001  DD  SYSGUT=A 

DSN--&&MC  TS  1 ,  UM  T=SYSD  A,  21  SP=  ( OLD,  PA  S  S  ) 
CSN  =  ££f-1CTS<i,UNIT  =  SYSDA,OISP=(OLD,PASS) 
DS  N=  LL  MCMTLh,UNIT=SYSDA,DlSP=(  ,  PASS), 
//    DCB=IRECFM=VBS,LKECL=4J4,BLKS1ZE=403) ,SPACE=( TRK, (  I,  I)  ) 
//FTU3F001    DD    DSN= LL MCL Ad  1 , UN  I T= SYSDa , D I SP  =  ( OLD , P A SS ) 
//    DD    DSN=CCMCLAH2,UNiT=SYSDA,DISP=(OLD,PASS) 
//CNTL2    EXEC    PGM=MCCNTL2  ,  CC)ND=  (  0,  L  T  ) 
//STEPLIB    DD    DSN=PMMCO.UTCS.LOAD, 
//    UNIT  =  SYSDA,VUL=SER  =  CTHL"kS,DISP  =  SHK 
//FT06F001     DO    SYSOUT=A 
//FT03F001    DD    SYSOUT=A 

//FT08FCOI    DD    DSN=  &£MC  'A  TCH  ,  UN  I  T=  SYSDA  ,  D  I  SP  =  (  OLD  ,  PA  SS  ) 
//FT1LF001    DO    DSN  =  ££MCL12,UMT=SYSDA,OISP  =  (  ,PASS)  , 
//    DC&=(kfcCFM=VBS,LRECL=*04,BLKSIZE=408) , SPACE=(TRK,  (1,1)) 
//FT10F001    DD    DSN=PMMCO.UTCS.MCUND.NUMUUT£RTE , 
//    UNIT=SYSDA,VOL=SER=OTHERS,DISP=SHR 
//FT09F001    DD    DSN=6SMCU 1 2 , UN  I T= S YSD A , DI SP= (  ,  PASS  )  , 
//    DCB=(RLCFM=VBS,LRECL=404,BLKS1ZE=4G8)  , SPACE= ( TRK  ,  (  1,1)  ) 
//FT05F001    DD    DSN=£&MCL  Aril  ,UN  I  T=SYSDA  ,  DI  SP=(  OLD  ,  PASS) 
//    DD    DSN=fcCMCLAB2,UNlT=SYSDA,0lSP=(0LD,PASS) 
//FT15F001    DD    DSN=PVMC J . UT CS . MCCC (R &RTE ) , L ABEL= ( , ,  ,  I  N ) , 
//    UNIT=SYSDA,VOL=SER=OTHERS,Di SP=SHR 

//FT13F0G1    DD    DSN  =  £GPC ArfUS.UN IT= SY SUA , DI SP=(  , PASS  )  , 
//    CCb=(RECFM=FB,LRECL=dO,BLKSlZE=6  0o) ,  SPACEM800, (5,1)) 
//FT17FOG1    DD    DSN=££mCAP.  JS,  UN  I  T  =  SYSOA  ,01  SP  =  {  ,  PASS  )  , 
//    DCB=(RfcCFM=FB,LRECL=bO,GLKSIZfc  =  bOO) ,SPACE=<800, (5,  I) ) 
//FT19F001    DD    DSN=tfcLNKL A3, UN  I T=SYSDA ,DI SP= ( , PASS )  , 
//    DCB=(RECFM=Ffi,LkECL= 30, BLKS I ZE=80) , SPACE=( 00. ( 1,1) ) 
//FT21FUU1    DD    DSN=G£LAG  ,  UNI  T=SYSOA,  DI  SP=  (,  PASS  )  , 
//    DCB=(RLCFM  =  VBS,LRtCL  =  l2'»,GLKSIZfc=l2&),SPACE=(l28,(l,l)) 
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//PUST  EXFC  PGM=POSTPRQC 

//STEPLIB  00  0SN=PMMC0.UTCS.LOAD2,  _  _    

//  UNI r=SYSDA,V0L=SER=0THEKSf DISP=SHR 

//FT06F001  0D  SYSGUT=A 

//FT03F001  DO  SYSOUT=A 

//FT12F001  DO  DSN=66MCLl2tUMI  T  =  SY SD A, 0  I SP  =  ( OLD , PAS S ) 

//FT13F001  OD  DSN=££MC012,UNIT=SYSDA,DISP=(CLD,PASS) 

//FT15F001  00  DSN=££,MCTHl,UNIT  =  SYSDAfDISP=COLDiPASS) 

//FT16F001    00    USN=££MCTM2,UNIT=SYSDA,DISP=(0LD,PASS) 

//FTObFOOl    DO    USN=££PCARDS,UN1T=SYSDA,DISP=(0LD,PASS) 

//COND    EXEC    PGN=MCOND»TlME~=i 

//STEPLI6    00    DSh=PMMCO.UTCS.LOAD,UNIT=SYSDA,VOL=SER=GTHERS,DISP=SHR 

//FT06F001    DO    SYSOUT=A 

//FT03F001    DO    SYSOUT=A 

//FT08F001    DD    OSN=PMMCO. UTCS . MCAR.MOtDSN , 

//    UNlT=SYSDA,Vai  =  i>EK  =  OTHEKS,DISP=SHR 

//FT09F001    00    DSN  =  £CMCMAGltUMT=SYSDA,DISP  =  <  tPASS)  i 

//    GCB=(RECFM  =  V3S,LRFCL  =  2b2,t3LKS  lZt  =  3520)  , SPACE= I TRK , ( 2 0, 1 )  ) 

//FT10F001    DD    DSN=££MCL12, UNI T=SYSDA,DISP=(OLD, PASS) 

//FT12F001    DD    DSN=PMMCO.UTCS . MCONO. NUMGUT&RTE , 

//    UNIT=SYSDA,VUL=SER=QTHEKS,DISP=SHR 

//FT15F001    DD    DSN=PMMCO.UTCS. MCAR.LNKLEN.R6RTE, 

//    UNIT=SYSDA,VGL=SER=GTHERS,DISP=SHR 

//FT05F001    DD    DSN=PMMCO.UTCS. MCLABS ( &DSN ) , LABEL= ( , , , IN) i 

//    UNIT=SYSDA,VOL=SER=GTHEkS,DISP=SHR 

//C0ND2    EXEC    PGM= MCOND , T I ME= 1 

//ST FPL  IB    DD    DSN  =  PMMCO. UTCS. LOAD, UNIT =SYSDA, VOL=SE R  =  OTHERS, 01 SP=SHR 

//FTC6F001  DD  SYSOUT=A 

//FT03F001  DD  SYSOUT=A 

//FTCGF001  00  DSN-PMMC0.UTCS.MCAR.M0e;DSN2f 

//  UNIT-SYSOA-fVUL=SER=OTHEKS,OISP  =  SHR 

//FT09F001  DD  DSN=££MCMAG2 , UNI T= SYSDA ,01 SP=( , PASS ) , 

//  DCB=(RECFM=VBS,LRECL=2  52,BLKSIZE=3  520) , SPACE= (TRK, (20,1) ) 

//FT10F001  00  USN=££MCL12,UN[T=SYSDA,DISP=(0LD,PASS) 

//FT12F001  00  DSN=PMMCO. UTCS. MCOND. NUM0UT6RTE, 

//  UNIT=SYSDA.VOL=SER=GTHERS,DISP=SHR 

//FT15F001  OD  DSN=PMMCO.UTCS.MCAR.LNKLEN.R£RTEt 

//  UNIT=SYSDA,VOL=SER=OTHERS,DISP=SHR 

//FT05F001  DO  DSN=PMMCO. UTCS . MCLABS { £DSN2 ), LABEL=( , , , IN) , 

//  UNIT=SYSDA,VOL=SER=OTHERS,OISP=SHR 

//POSTAG  EXEC  PGM=POSTPROC 

//STEPLIti  00  DSN=PMMC0.UTCS.L0A02, 

//  UNIT=SYSDA,VOL=SER=GTHERS,DISP=SHR 

//FT06F001  00  SYSOUT=A 

//FT03F001  DO  SYSOUT=A 

//FT11F00L  DO  DSN=££LNKLAB,UNIT=SYSDA,DISP=(OLD,PASS) 

//FT12F001  DO  DSN=£&LAG,UNIT=SYSDA,D1SP=(GLD,PASS) 

//FT13F001  00  DSN=££MCOL^,UNIT=SYSDA,DISP=(OLD,PASS) 

//FT15F001    00    DSN=££MCMAGNUNIT=SYSDA,DISP=(GLD,PASS) 

//FT16F001    00    GSN=66MCMAG2tUNIT  =  SYSDA,f)ISP=(ULDfPASS) 

//FT05F001    OD    Di>i\=&£ACAKDS,U,MlT  =  SYSDA,DISP=(OLD,PASS) 


Figure    44.       MC   PROC    2    (continued). 
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.  words  1-3:   alphanumeric  label 

.  word  4:   blank  (for  number  of  observations) 

.  word  5:   number  of  links 

.  word  6 :   printing  switch 

-  0:   not  print 

-  2:   print  requested. 

Organization:   PDS,  one  member  per  RTA. 

Form:   binary  integer. 

Note:   members  of  this  data  set  are  created  in  advance 
by  a  special-purpose  routine  that  simply  con- 
verts card  input  values  of  the  parameters. 

MCLABS 

Content:   major  parameters  for  each  RTA;  as  LABSIN 

with  word  4  (number  of  observations  filled 
in)  . 

Organization:   PDS,  one  member  per  RTA. 

Form:   binary  integer. 

NOBS 

Content :   number  of  observations  in  each  detector  data 
set. 

Organization:   PDS,  one  member  per  time  of  day/alter- 
native (TA)  . 

Form:   BCD. 

Note :   same  data  set  as  used  extensively  in  detector 
processing . 


MCCC 


Content:   control  cards  for  MCCNTL2;  passed  through  as 
control  cards  to  POST  and  MCOND. 

Organization :   PDS,  one  member  per  route. 

Form:   BCD. 
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Format:   see  MCCNTL2  program  description. 

MCONDCC 

Content:   control  cards  for  MCOND. 

Organization:   sequential,  one  data  set  per  route. 

Form:   BCD 

Format :   see  MCOND  program  description 

In  addition  to  the  above  control  card  data  sets,  raw 
data  as  card  images  are  supplied  to  MC2  and  detector  volume 
are  supplied  to  MCV0L2 .   Detailed  descriptions  of  these 
files  are  included  in  the  respective  program  descriptions. 

PROGRAM  DESCRIPTIONS 

The  following  program  descriptions  outline  the  basic 
operation  of  each  of  the  MC  analysis  programs.   Each  pro- 
gram description  includes  a  brief  outline  of  the  program 
operating  procedure;  inputs  required;  outputs  produced;  and 
size  limitations.   References  are  made  to  each  of  the  con- 
trol data  sets  discussed  above. 

MOE  Computation  Program  -  MC2 

Operation 

MC2  begins  by  transferring  the  raw  card  image  data 
into  a  single  variable  length  table.   The  recorded  times  are 
incremented  whenever  the  cumulative  values  pass  an  addi- 
tional 1000.   The  program  then  performs  certain  basic  error 
checking  computations,  including  determination  of  appropriate 
sequencing  of  link  identifiers.   It  then  ensures  that  an 
odd  number  of  values  has  been  recorded  between  each  link 
identifier. 

If  all  error  checks  are  passed,  the  program  then  com- 
putes the  following  MOEs  for  all  links  not  flagged  as  un- 
usable: 

.  total  travel  time  (seconds) ; 

.  stopped  time  delay  (seconds) ; 

.  number  of  stops; 

.  average  speed  (mph) . 
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The  last  measure  is  computed  from  total  travel  time  and  link 
length.   An  approximate  route  total  is  computed  and  the 
results  printed  and  an  output  data  set  produced. 

The  values  recorded  on  the  raw  data  cards  indicate  the 
time  at  which  one  of  the  following  occurred: 

.  vehicle  entered  a  link  (left  the  previous  link) ; 

.  vehicle  stopped  in  traffic  or  for  a  signal; 

.  vehicle  resumed  action  motion  after  a  stop. 

Thus,  if  a  vehicle  passes  through  a  link  without  stopping, 
only  one  time  is  recorded  between  two  link  identifiers. 
For  each  stop  within  a  link,  a  pair  of  times  must  be  re- 
corded.  Hence,  the  error  check  noted  above  is  performed 
to  ensure  that  an  odd  number  of  values  is  recorded. 

Inputs 

1.  Identification:   LABS IN  control  card  (C2) 
FORTRAN  unit:  5 

2.  Identification:   LNKLEN  control  cards  (CI) 
FORTRAN  unit:   15 

3.  Identification:   raw  data 

FORTRAN  unit:   8 

Content:   for  each  observation,  the  following  cards 
are  supplied: 

a.   type:   header 

number :   1 

format : 

fields : 


(13,  12,  513) 


1  -  route  identifier  (11,  13, 

22,  24,  30,  or  40) 

2  -  month 

3  -  day 

4  -  hour  (24-hour  clock) 

5  -  minute 

6  -  driver  (arbitrary  code) 

7  -  number  of  comment  cards 
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b.   type:   comments 

number:   as  field  7  of  header  card  (may 
be  0) 

format:   (2X,26I3) 

fields:   link  identifier  coded  as  a  nega- 
tive integer,  followed  by  an 
odd  number  of  cumulative  times. 
Bad  data  flagged  with  a  -99. 

Outputs 

1.  Identification:   MCLABS  control  card  (C3) 

FORTRAN  unit:   10 

Content:   as  LABSIN  with  number  of  observations  supplied 
by  counting  for  the  current  run 

2.  Identification:   MOE  output  data  set 
FORTRAN  unit:   9 

Structure:   binary  integer  full  words 

Number:   1  record  per  observation 

Content:   first  6  words  are  the  header  (comment  cards 
omitted)  succeeding  sets  of  4  words  are  MOEs 
for  each  link 

Limitations 

1.  Maximum  number  of  links:   60 

2.  Maximum  number  of  entries  on  raw  data  cards  per  obser- 
vation:  250 

Bad  Value  Substitution  Program  -  MCPLUG2 

Operation 

MCPLUG2  computes  mean  values  for  all  usable  observa- 
tions on  each  MOE  and  for  each  link.   These  values  are  then 
substituted  for  any  values  flagged  previously  by  a  -99. 

Inputs 

1.   Identification:   MCLABS  control  card  (C3) 
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FORTRAN  unit:   5 

2.   Identification:   MOE  data  from  MC2 

FORTRAN  unit:   8 

Number:   1  record  per  observation 

Content:   first  6  words  are  the  header,  succeeding  sets 
of  5  words  are  the  MOEs  and  a  flag  for  each 
link.   The  flag  has  a  value  of  1  if  the  data 
is  original  and  a  value  of  3  if  mean  values 
have  been  substituted. 

Limitations 
1.   Maximum  number  of  links:   60 
Data  Rearrangement  Program  -  MCSTRIP 

Operation 

MCSTRIP  extracts  the  header  from  the  basic  data  set 
and  creates  a  separate  header  record  file  for  subsequent 
processing.   The  MOEs  are  rearranged  so  that  the  output 
data  set  contains  observations  across  all  links  for  each 
MOE.   This  is  the  data  set  organization  required  by  the 
post  processor. 

Inputs 

1.  Identification:   MCLABS  control  card  (C3) 
FORTRAN  unit:   5 

2.  Identification:   MOE  updated  values 
FORTRAN  unit:   8 

Scratch  Data  Sets 

1.  Identification:   travel  time  scratch  data  set 
FORTRAN  unit:   9 

2.  Identification:   delay  scratch  data  set 
FORTRAN  unit:   10 
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3.  Identification:   stops  scratch  data  set 
FORTRAN  unit:   11 

4.  Identification:   speed  scratch  data  set 
FORTRAN  unit:   12 

Outputs 

1.  Identification:   header  card 
FORTRAN  unit:   14 

Number:   1  record  for  each  observation 
Structure:   binary  integer  full  words 
Content:   word  1  -  sequence  number 

word  2  -  route  identifier 

word  3  -  month 

word  4  -  day 

word  5  -  hour 

word  6  -  minute 

word  7  -  driver 

word  8  -  duration  of  run  (seconds) 

2.  Identification:   MOE  flagged  values 
FORTRAN  unit:   16 

Number:   1  record  for  each  observation 

Structure:   binary  integer  full  words 

Content:   sequence  number,  followed  by  value  of  flag 
for  each  link 

Note:   not  currently  used  in  subsequent  processing 

3.  Identification:   MOE  values  for  post  processor 
FORTRAN  unit:   18 
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Number:   1  record  for  each  observation  for  each  of  4  MOEs 

Structure:   binary  integer  full  words 

Content:   sequence  number,  followed  by  the  value  of  an 
MOE  for  each  link.   All  observations  for  the 
travel  time  MOE  are  written  first,  followed 
by  delay,  stops,  and  speeds,  in  that  order. 

Limitations 

1.   Maximum  number  of  links:   60 


Volume  Assignment  Program  -  MCVQL2 

Operation 

MCVOL2  assigns  a  network  volume 
based  upon  the  starting  time  and  dur 
The  program  first  converts  the  detec 
into  a  date  and  time  configuration  s 
It  next  builds  a  table  of  network  vo 
15-minute  time  period.  Missing  valu 
taking  averages  across  all  dates  for 
period.  Values  are  then  estimated  f 
15-minute  periods  immediately  before 
covered.   These  values  are  estimated 


to  each  MC  observation 
ation  of  the  MC  run. 
tor  header  information 
uitable  for  matching, 
lumes  for  each  date  and 
es  are  estimated  by 

a  specific  15-minute 
or  each  date  for  the 

and  after  the  time 

in  the  following  way: 


t_x  =  tQ  -  (tx  -  tQ)  =  2tQ  -  tx 


n+1    n 


(t   -  t   ..  )  =  2t   -  t   , 
n    n-1      n    n-1 


The  network  volume  for  the  15-minute  summary  nearest 
the  starting  time  of  the  run  is  selected.   If  the  duration 
of  the  run  is  greater  than  15  minutes,  an  average  volume 
over  successive  15-minute  intervals  is  used.   The  network 
volume  is  added  to  the  header  record  and  updated  records 
printed  and  written  out.   If  a  match  is  not  found,  an  appro- 
priate error  message  is  generated  and  the  volume  field  is 
set  to  zero. 

Input 

1.  Identification:   MCLABS  control  card  (C3) 
FORTRAN  unit:   5 

2.  Identification:   detector  observations  -  NOBS  control 


169 


card  (C4) 
FORTRAN  unit:   15 

3.  Identification:   header  card  from  MCSTRIP 
FORTRAN  unit:   10 

4.  Identification:   detector  volume 
FORTRAN  unit:   8 

Content:   word  1  -  identification  number 

word  2  -  month  (e.g.  bMAR) 

word  3  -  day  (e.g.  b04b) 

word  4  -  year  (e.g.  74bb) 

word  5  -  time  (e.g.  0745) 

word  6  -  volume 

Structure:   word  1  and  word  6  -  binary  integer  full 
words; 
word  2  -  word  5  -  binary  character  data 
as  above . 

Output 

1.   Identification:   updated  header  record 

FORTRAN  unit:   9 

Number:   1  record  for  each  observation 

Structure:   binary  integer  full  words 

Content:   similar  to  output  of  MCSTRIP  with  volume 
in  word  9 

Limitations 

1.  Maximum  number  of  15-minute  detector  volume  summaries: 

120 

2.  Maximum  number  of  dates:   20 

3.  Maximum  number  of  15-minute  periods  per  day:   15  (in- 

cluding estimated  periods) 
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System  Sort/Merge  Routine  -  SORT 

Operation 

The  system  sort/merge  routine  is  invoked  to  sort  the 
header  records  by  ascending  order  on  volume. 

Inputs 

1.  Identification:   updated  header  records  from  MCV0L2 
Data  set:   SORTIN 

2.  Identification:   sort/merge  control  card 
Data  set:   SYSIN 

Content:   1  control  card,  identical  for  all  runs,  as: 

SORT  FIELDS=(37,4,CH,A) /SIZE=E100 
where  37  =  location  in  bytes  of  the  beginning 
of  the  sort  field  (computed  as 
word  8x4  bytes/word  +  4  bytes 
for  VBS  records  +  1  byte  for  be- 
ginning of  word  9) 
where   4  =  length  of  word  9  in  bytes 
where  CH  =  type  of  data  (BI  would  produce 

identical  results) 
where   A  =  ascending  sort  desired 
"   E100  =  estimated  number  of  records  (upper 
limit) 

Scratch  Data  Sets 

1.   Identifications:   3  system  sort/work  areas 

Data  sets:   SORTWK01,  SORTWK02,  SORTWK03 

Output 

1.   Identification:   sorted  header  records 

Data  set:   SORTOUT 

Content:   identical  to  SORTIN 
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Volume  Matching  Program  -  MCMTCH2 

Operation 

MCMTCH2  reads  in  two  sorted  header  record  data  sets. 
An  observation  usage  (OBUSE)  vector  is  constructed,  contain- 
ing initially  values  of  1  for  all  observations  except  those 
with  a  zero  volume  (unmatched)  for  which  the  OBUSE  value  is 
set  to  0,  indicating  an  observation  that  is  not  to  be  used. 
The  same  matching  subroutine  used  in  the  detector  data 
processing  is  then  called. 

The  matching  routine  determines  if  the  difference  be- 
tween the  outliers  of  the  two  distributions  exceeds  the 
following  value: 

v  =  (max(MAXV0Ll,MAXV0L2)  -  min (MINVOL1 ,MINVOL2) ) 

min(NOBSl,NOBS2) 

If  the  point  is  eliminated,  the  criteria  is  applied  to  the 
resulting  outlier  pair  recursively  until  no  further  points 
are  removed.   Values  closest  to  the  mean  are  then  written 
as  a  control  data  set  to  subsequent  programs  and  a  summary 
of  the  matched  observations  is  printed. 

Inputs 

1.  Identification:   MCLABS  control  cards  (CS) 

FORTRAN  unit:   5 

Number:   2  records,  one  for  each  alternative,  concate- 
nated 

2.  Identification:   sorted  header  records  for  alternative  1 
FORTRAN  unit:   8 

3.  Identification:   sorted  header  records  for  alternative  2 
FORTRAN  unit:   10 

Output 
1.   Identification:   OBUSE  vector 
FORTRAN  unit:   9 
Number :   1  record 
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Structure:   binary  integer  half  words 

Content:   values  of  0  or  1  for  each  observation  in 

alternative  1,  followed  by  values  for  each 
observation  in  alternative  2 

Limitations 

1.   Maximum  number  of  observations  in  either  alternative: 
100 

Control  Card  Processing  Program  -  MCCNTL2 

Operation 

MCCNTL2  is  designed  to  produce  control  card  inputs  for 
the  post  processor  runs  for  both  link  statistical  analyses 
and  aggregate  subnetwork  analyses.   Some  control  cards  are 
also  produced  for  the  subnetwork  aggregation  program  MCOND. 
The  program  does  not  perform  any  significant  analytical 
tasks . 

Inputs 

1.  Identification:   MCLABS  control  cards 

FORTRAN  unit:   5 

Number:   2  records,  one  for  each  alternative,  concate- 
nated 

2.  Identification:   MCONDC  control  cards 
FORTRAN  unit:   10 

Number:   2  records  used,  plus  other  skipped 

Content:  see  MCOND  writeup  for  description;  number  of 
aggregate  subnetworks  and  subnetwork  identi- 
fier labels  are  read 

3.  Identification:   MCCNTL  parameters  -  MCCC  Control  cards 

#1  (C5) 

FORTRAN  unit:   15 

Number :   1  card 

Content:   FORTRAN  NAMELIST  containing  the  following 
parameters : 
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NMOE  -  number  of  MOEs  (normally  set  to  4) 
NX01  -  number  of  observations  in  alternative 

1  to  be  eliminated  (OBUSE  to  be  set 
to  0  exogenously) ;  assumed  value  0 

NX02  -  number  of  observations  in  alternative 

2  to  be  eliminated;  assumed  value  0. 

NXL   -  number  of  links  to  be  eliminated 

(value  of  link  use  vector  LUSE  to  be 
set  to  0  -  normally  identical  for  all 
runs  for  a  given  route) ;  assumed  value 
0. 

Note:   this  card  is  read  as  FORTRAN  NAMELIST  named 
PARAM  and  should  be  coded  as: 

&PARAM  NMOE=4,NXL=3   SEND 

Identification:   post  processor  control  card  for  link 

statistical  analysis  -  MCCC  control 
cards  #2  (C5) 

FORTRAN  unit:   15  -  concatenated  to  (c) 

Number :   1  card 

Content:'  FORTRAN  NAMELIST  for  the  post  processor, 
coded  as : 

&PARAM  LNKNT=l,TESTBS=2,TWIND=2,NMOE=4   SEND 

The  values  of  these  parameters  are  described 
in  the  post  processor  program  description. 

Note:   this  card  is  not  read  as  a  NAMELIST  but  is  passed 
to  the  post  processor  as  a  card  image 

Identification:   post  processor  control  card  for  sub- 
network statistical  analysis  -  MCCC 
control  cards  #3  (C5) 

FORTRAN  unit:   15  -  concatenated  to  (d) 

Number :   1  card 

Content:   FORTRAN  NAMELIST  for  the  post  processor, 
coded  as : 

&PARAM  LNKNT=2,TESTBS=2,TWIND=2,NMOE=4   &END 

Note:   see  (d) 
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6.  Identification:   MOE  labels  -  MCCC  control  cards  #4  (C5) 
FORTRAN  unit:   15  -  concatenated  to  (e) 

Number:   NMOE/4  (1  for  the  current  application) 

Content:   20  columns  of  alphanumeric  data  identifying 
such  MOE;  up  to  4  MOEs  may  be  described  on 
each  card 

Format:   (4(5A4) 

7.  Identification:   observation  deletions   for  alternative 

1  -  MCCC  control  cards  #5  (C5) 

FORTRAN  unit:   15  -  concatenated  to  (f) 

Number:   NX01/20  (not  supplied  if  NX01=0) 

Content:   observation  numbers  for  alternative  1  to  be 
deleted;  i.e.,  OBUSE  value  to  be  set  to  0 

Format:   (2014) 

8.  Identification:   observation  deletions  for  alternative 

2  -  MCCC  control  cards  #6  (C5) 

FORTRAN  unit:   15  -  concatenated  to  (g) 

Number:   NX02/20  (not  supplied  if  NX02=0) 

Content:   observation  numbers  for  alternative  2  to  be 
deleted 

Format:   (2014) 

9.  Identification:   link  deletions 

FORTRAN  unit:   15  -  concatenated  to  (h) 

Number:   NXL/20  (not  supplied  if  NXL=0) 

Content:   link  numbers  to  be  deleted;  i.e.,  LUSE  values 
set  to  0 

Format:   (2014) 

10.   Identification:   OBUSE  table  from  MCMTCH2 

FORTRAN  unit:   8 
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Note:   In  the  current  operation,  the  MCCC  control  cards 
have  been  created  as  a  PDS  with  one  member  for 
each  route. 

Outputs 

1.  Identification:   updated  OBUSE  vector 

FORTRAN  unit:   9 

Content:   same  form  as  input  OBUSE  vector;  identical  if 
NX01=NX02=0 

2.  Identification:   link  use  (LUSE)  vector 
FORTRAN  unit:   1 

Number:   1  record 

Content:   values  of  0  or  1  for  each  link,  with  1  indi- 
cating that  a  link  will  be  used  in  the  link 
level  statistical  analysis  and  may  be  aggre- 
gated in  MCOND 

Structure:   binary  integer  half  words 

3.  Identification:   subnetwork  use  vector 
Fortran  unit  number:   21 

Number :   1  record 

Content:   all  aggregate  subnetworks  are  presumed  to  be 
usable  in  the  subnetwork  post  processor 
statistical  analysis  and  thus  all  elements 
of  this  vector  have  a  value  of  1 

Structure:   binary  integer  half  words 

4.  Identification:   aggregate  subnetwork  identifier  labels 
FORTRAN  unit:   19 

Number:   as  required,  with  18  values  per  record 

Content:   4  character  alphanumeric  labels  for  each 
aggregate  subnetwork 

Structure:   BCD  card  images 

Format:   (18A4) 
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Identification:   link  level  post  processor  control  cards 

FORTRAN  unit:   13 

Number:   as  required  (7  in  current  application) 

Structure:   BCD  card  images 

Content:   the  following  card  images  are  written: 

cardl:   post  processor  control  card  -  input 
data  set  (d) 

card2 :   label  for  alternative  1  -  from  MCLABS 

card3:   label  for  alternative  2  -  from  MCLABS 

card4 :   number  of  observations  for  alternative 

1  -  from  MCLABS 

card5:   number  of  observations  for  alternative 

2  -  from  MCLABS 

card6:   number  of  links  -  from  MCLABS 

card(s)7(+):   MOE  labels  -  from  input  data  set 

(f) 

Format:   (20A4/3A4/3A4/I10/I10/I10/ (5A4) ) 

Identification:   subnetwork  post  processor  control 

cards 

FORTRAN  unit:   17 

Number:   as  required  (7  in  current  application) 

Structure:   BCD  card  images 

Content:   the  following  card  images  are  written: 

cardl:   post  processor  control  card  -  input 
data  set  (e) 

card2:   label  for  alternative  1  -  from  MCLABS 
with  prefix  AGGREGATE 

card3:   label  for  alternative  2  -  from  MCLABS 
with  prefix  AGGREGATE 

card4 :   number  of  observations  for  alternative 
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1  -  from  MCLABS 

card5:   number  of  observations  for  alternative 
2  -  from  MCLABS 

card6:   number  of  subnetworks  -  from  input 

data  set  (b) ,  plus  1  for  route  total 

card(s)7(+):   MOE  labels  -  from  input  data 
set  (f) 

Limitations 

1.  Maximum  number  of  links:   100 

2.  Maximum  number  of  observations  in  either  alterna- 
tive:  100 

3.  Maximum  number  of  aggregate  subnetworks:   6  0 

4.  Maximum  number  of  MOE ' s :   10 
Subnetwork  Aggregation  Program  -  MCOND 

Operation 

MCOND  reads  in  a  series  of  control  parameters  indi- 
cating which  links  are  to  be  aggregated  into  subnetworks. 
As  the  program  is  currently  written,  these  links  must  be 
consecutive  entries  on  the  route.   Other  inputs  include  the 
raw  data  from  MCSTRIP,  a  LUSE  table  from  MCCNTL2,  and  link 
lengths  for  computing  subnetwork  speeds  from  LNKLEN. 

Travel  time,  stopped  time  delay,  and  number  of  stops 
are  accumulated  for  all  consecutive  links  comprising  a 
subnetwork.   The  subnetwork  length  is  computed  in  a  similar 
manner  and  speed  is  computed  from  this  value  and  total 
travel  time.   Not  all  links  need  be  specified  in  a  subnet- 
work.  The  program  will  also  compute  a  route  total  for  all 
links  with  an  LUSE  value  equal  to  1.   This  may  or  may  not 
equal  the  sum  of  the  subnetwork  values.   An  output  data  set 
is  produced  in  a  form  suitable  for  input  to  the  post  pro- 
cessor. 

Inputs 

1.  Identification:   MCLABS  control  card  (C3) 
FORTRAN  unit:   5 

2.  Identification:   link  lengths  (CI) 
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FORTRAN  unit:   15 

Identification:   LUSE  vector  from  MCCNTL2 
FORTRAN  unit:   10 

Identification:   MCOND  control  cards 
FORTRAN  unit:   12 
Number:   as  required 

Content:   three  types  of  cards  are  supplied: 
cardl:  number  of  subnetworks 

number :   1 

format:   (12) 
card2:  beginning  and  ending  link  numbers 

number :   from  cardl 

format:   (212) 
card3:  subnetwork  label  identifiers 

number:   as  required  -  18  per  card 

format:   (18A4) 

Note:   records  of  type  card  3  are  not  read  in  MCOND 
but  are  read  in  MCCNTL2 

Organization:   PDS,  one  member  per  route 

Identification:   raw  data  from  MCPLUG2 

FORTRAN  unit:   8 

Output 

Identification:   subnetwork  MOE  post  processor  inputs 

FORTRAN  unit:   9 

Number:   1  record  for  each  observation  for  each  of  the 
4  aggregate  MOE ' s 

Structure:   binary  integer  full  words 
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Content:   sequence  number,  followed  by  the  value  of  an 

aggregate  MOE  for  each  subnetwork.   All  obser- 
vations for  travel  time  are  written  first, 
followed  by  delay,  stops,  and  speed,  in  that 
order . 

Limitations 

1.  Maximum  number  of  links:   60 

2.  Maximum  number  of  aggregated  subnetworks:   12 

3.  Maximum  number  of  observations:   40 

Statistical  Post  Processor  Program  -  POST  (moving  car  anal- 
ysis write-up) 

Operation 

The  statistical  post  processor  is  designed  to  provide 
a  comparison  between  two  sets  of  data.   For  each  MOE  selected, 
the  program  first  computes  means  and  standard  deviations, 
then  the  percentage  difference  between  the  means.   The  dis- 
tributions are  then  examined  with  three  different  statis- 
tical tests:   a  simple  t-test,  the  Mann-Whitney  U-test,  and 
the  Kolmogorov-Smirnov  test.   Statistical  significance  at 
the  1%,  2%,  "and  5%  levels  is  indicated. 

The  statistics  are  normally  generated  for  each  link 
or  aggregate  subnetwork  across  all  observations.   The  com- 
parisons can  also  be  made  for  a  pair  of  observations  across 
all  links.   The  program  will  accept  multiple  MOE ' s  for  which 
independent  statistical  tests  will  be  performed.   Statis- 
tical significance  is  indicated  by  0,  1,  2,  or  3  stars  next 
to  the  test  parameter,  indicating  insignificance  differences 
or  differences  at  the  5%,  2%,  and  1%  levels  for  the  latter 
values,  respectively. 

The  program  will  accept  data  as  binary  integer  full 
words,  binary  integer  half  words,  or  binary  floating  point 
full  words.   All  data  must  be  supplied  with  one  record  per 
observation,  containing  values  of  one  MOE  for  all  links. 
All  observations  for  one  MOE  are  .'supplied  consecutively, 
followed  by  observations  for  subsequent  MOE * s .   Either  link 
or  subnetwork  analyses  may  be  specified.   For  subnetwork 
analyses,  subnetwork  identifier  lables  must  be  input  to  the 
program. 

Inputs 

1.   Identification:   program  control  card 
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FORTRAN  unit:   5 

Structure:   BCD  card  image 

Number:   as  required,  normally  1 

Content:   FORTRAN  NAMELIST  of  the  following  type: 
&PARAM      NAMELIST  identifier 
NMOE  =  n    number  of  MOE ' s  for  testing 
TESTBS  =  n  type  of  tests  to  be  performed 

n  =  1:   link  or  subnetwork  statis- 
tics only 

n  =  2:   link  or  subnetwork  and 
observation  statistics 

n  =  3 :   observation  statistics 
only 


LNKNT 


n 


TWIND  =  n 


SEND 


type  of  analysis 

n  =  1:   link  analysis 

n  =  2:   subnetwork  analysis 

type  of  data 

n  =  1:   binary  floating  point 

full  words 
n  =  2:   binary  integer  full  words 

n  =  3:   binary  integer  half  words 
NAMELIST  terminator 


Note:   all  values  must  be  supplied 
Identification:   label  for  alternatives 
FORTRAN  unit:   5  -  concatenated  to  (a) 
Structure:   BCD  card  image 
Number:   2,  one  for  each  alternative 
Format:   (20A4) 
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Vehicle  Minutes/Vehicle  Miles  Computation  -  VEHMIN 

Operation 

VEHMIN  begins  by  reading  a  series  of  control  parameters, 
including  trap  lengths  and  LUSE  and  OBUSE  vectors,  for  two 
sets  of  detector  outputs  being  compared.   The  program  then 
begins  a  loop  over  all  observations  for  each  alternative. 
If  the  observation  is  usable  (0BUSE=1) ,  vehicle  minutes  of 
travel,  vehicle  minutes  of  delay,  and  vehicle  miles  of 
travel  are  computed.   These  values  are  then  accumulated  by 
section  and  for  the  network  as  a  whole  for  all  usable  links 
(LUSE=1) .   Average  speed  as  vehicle  miles/vehicle  minutes  is 
also  computed  within  subroutine  SPEEDY. 

After  the  values  have  been  accumulated  for  all  usable 
observations  and  for  both  alternatives,  a  vehicle  minutes 
summary  is  produced.   Average  values  for  vehicle  minutes  of 
travel  and  vehicle  minutes  of  delay  are  computed  by  dividing 
the  cumulative  values  by  the  number  of  usable  observations. 
Similarly,  an  average  speed  across  all  observations  is  com- 
puted. 

The  vehicle  minutes  summary  is  then  printed.   Values 
are  recorded  for  each  link  for  both  alternatives  with  the 
differences  r-ecorded  separately  for  positive  and  negative 
results.   Section  totals  are  also  computed,  with  the  positive 
and  negative  sums  computed  separately  as  well  as  a  net 
figure.   Finally,  the  average  speeds  for  each  section  and  the 
network  as  a  whole  for  the  two  alternatives  are  printed. 

VEHMIN  then  passes  control  to  routine  PLOT  which  prints 
the  values  of  vehicle  minutes  and  vehicle  miles  for  each 
observation  for  each  section  and  the  network  as  a  whole. 
Printer  plots  are  then  generated  with  vehicle  minutes  against 
vehicle  miles  for  each  section,  with  data  for  the  two  al- 
ternatives shown  with  distinctive  characters. 

Finally,  VEHMIN  passes  control  to  subroutine  REG  which 
computes  the  linear  regression  of  vehicle  minutes  on  vehicle 
miles.   A  simple  summary  is  printed  showing  the  intercept, 
slope,  multiple  correlation  coefficient  (R  ),  and  standard 
error  of  the  two  equations  generated.   Separate  equations 
are  summarized  for  each  section  and  the  network  as  a  whole. 

The  program  requires  outputs  of  the  NETCON  and  PREPOST 
routines  developed  as  part  of  the  general  detector  analysis 
package.   Therefore,  for  the  current  application,  VEHMIN 
is  run  behind  these  two  programs  as  a  special  procedure, 
passing  the  necessary  information,  to  avoid  maintaining  a 
large  number  of  additional  data  sets. 
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Inputs 

Identification:   label  cards 

FORTRAN  unit:   5 

Number :   2 

Format:   (20A4) 

Source:   2  members  of  general  purpose  label  data  set 
LABS ,  concatenated 

Identification:   trap  lengths 

FORTRAN  unit:   8 

Number :   as  required 

Format:   (2014) 

Content:   detector  identification  followed  by  trap 
length,  in  pairs 

Source:   special  data  set 

Identification:   link  use  vector 

FORTRAN  unit:   10 

Number :   1  record 

Structure:   binary  integer  half  words 

Source:   LUSE  vector  for  particular  combination;  output 
of  NETCOM 

Identification:   number  of  observations 

FORTRAN  unit:   12 

Format:   (110) 

Number :   2 

Source:   2  members  of  observation  vector  NOBS,  concate- 
nated 

Identification:   observation  use  vector 

FORTRAN  unit:   14 
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Number :   1  record 

Structure:   binary  integer  half  words 

Source:   OBUSE  vector  from  PREPOST  for  a  particular 
combination 

6.  Identification:   link  volumes 
FORTRAN  unit:   16 

Number:   as  appropriate 

Structure:   binary  integer  half  words 

Source:   2  unique  data  sets  for  M0E2 ,  concatenated 

7.  Identification:   average  delay 
FORTRAN  unit:   18 

Number:   as  appropriate 

Structure:   binary  integer  half  words 

Source:   2  unique  data  sets  for  M0E8,  concatenated 

8.  Identification:   average  travel  time 
FORTRAN  unit:   20 

Number :   as  appropriate 

Structure:   binary  integer  half  words 

Source:   2  unique  data  sets  for  MOE7,  concatenated 

Outputs 

VEHMIN  produces  no  outputs  other  than  the  printed 
records  noted  above. 

Limitations 

1.  Maximum  number  of  usable  links:   150 

2.  Maximum  number  of  observations:   100 

Note :   Breakpoints  for  sections  are  compiled  into  the 
program  at  detector  numbers  19,  50,  and  195.   Alternate 
identifications  could  be  accommodated,  but  a  different  num- 
ber of  sections  requires  major  program  alterations. 
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APPENDIX  D 
RAW  D£TA  TABLES 
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